login
A085982
Number of 8's in decimal expansion of prime(n).
10
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
OFFSET
1,152
LINKS
MATHEMATICA
DigitCount[Prime[Range[150]], 10, 8](* Harvey P. Dale, Jun 11 2016 *)
PROG
(Haskell)
a085982 = count8 0 . a000040 where
count8 c x | d == 8 = if x < 10 then c + 1 else count8 (c + 1) x'
| otherwise = if x < 10 then c else count8 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, 9's A085983.
Sequence in context: A011738 A011737 A011736 * A011735 A355816 A353483
KEYWORD
base,nonn
AUTHOR
Jason Earls, Jul 06 2003
STATUS
approved