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

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

Offset

1,102

Links

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

Mathematica

DigitCount[Prime[Range[100]], 10, 5] (* Paolo Xausa, Oct 30 2023 *)

Prog

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

Sequence in context: A061158 A180843 A318141 * A330986 A269166 A331238

Adjacent sequences: A085976 A085977 A085978 * A085980 A085981 A085982

Keyword

base,nonn

Author

Jason Earls, Jul 06 2003

Status

approved