login
A085983
Number of 9's in decimal expansion of prime(n).
10
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
OFFSET
1,46
LINKS
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'
where (x', d) = divMod x 10
-- Reinhard Zumkeller, Apr 08 2014
CROSSREFS
Cf. 0's A085974, 1's A085975, 2's A085976, 3's A085977, 4's A085978, 5's A085979, 6's A085980, 7's A085981, 8's A085982.
Sequence in context: A325562 A176917 A302110 * A285701 A088183 A308470
KEYWORD
base,nonn
AUTHOR
Jason Earls, Jul 06 2003
STATUS
approved