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

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

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

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

Adjacent sequences: A085979 A085980 A085981 * A085983 A085984 A085985

Keyword

base,nonn

Author

Jason Earls, Jul 06 2003

Status

approved