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

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, 0, 1, 1, 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, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 0

Offset

1,121

Links

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

Mathematica

Table[DigitCount[n, 10, 6], {n, Prime[Range[110]]}] (* Harvey P. Dale, Mar 20 2018 *)

Prog

(Haskell)
a085980 = count6 0 . a000040 where
   count6 c x | d == 6    = if x < 10 then c + 1 else count6 (c + 1) x'
              | otherwise = if x < 10 then c else count6 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, 7's A085981, 8's A085982, 9's A085983.

Sequence in context: A011732 A353473 A011731 * A023974 A277164 A011730

Adjacent sequences: A085977 A085978 A085979 * A085981 A085982 A085983

Keyword

base,nonn

Author

Jason Earls, Jul 06 2003

Status

approved