A085983 - OEIS

A085983

Number of 9's in decimal expansion of prime(n).

0, 0, 0, 0, 0, 0, 0, 1, 0, 1, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 1, 1, 0, 0, 0, 1, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 1, 0, 1, 1, 1, 2, 0, 0, 0, 1, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0, 1, 0, 0, 1, 0, 1, 1, 0, 1, 1, 0, 0, 0, 1, 0, 1, 0, 0, 0, 0, 1, 0, 1, 2, 0, 1, 0, 0, 0, 0, 0, 0, 1, 0

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,46

LINKS

Reinhard Zumkeller, Table of n, a(n) for n = 1..10000

MATHEMATICA

DigitCount[#, 10, 9]&/@Prime[Range[110]] (* Harvey P. Dale, May 08 2018 *)

PROG

(Haskell)

a085983 = count9 0 . a000040 where

count9 c x | d == 9 = if x < 10 then c + 1 else count9 (c + 1) x'

| otherwise = if x < 10 then c else count9 c x'