login
A085979
Number of 5's in decimal expansion of prime(n).
10
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
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 A377081
KEYWORD
base,nonn
AUTHOR
Jason Earls, Jul 06 2003
STATUS
approved