login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A085978 Number of 4's in decimal expansion of prime(n). 10
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, 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, 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, 1, 1, 1, 1, 1, 1, 1, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0 (list; graph; refs; listen; history; text; internal format)
OFFSET
1,86
LINKS
MATHEMATICA
DigitCount[#, 10, 4]&/@Prime[Range[110]] (* Harvey P. Dale, May 30 2021 *)
PROG
(Haskell)
a085978 = count4 0 . a000040 where
count4 c x | d == 4 = if x < 10 then c + 1 else count4 (c + 1) x'
| otherwise = if x < 10 then c else count4 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, 5's A085979, 6's A085980, 7's A085981, 8's A085982, 9's A085983.
Sequence in context: A124034 A332029 A211312 * A141044 A064284 A030409
KEYWORD
base,nonn
AUTHOR
Jason Earls, Jul 06 2003
STATUS
approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified March 28 22:04 EDT 2024. Contains 371254 sequences. (Running on oeis4.)