A085975 - OEIS

A085975

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

0, 0, 0, 0, 2, 1, 1, 1, 0, 0, 1, 0, 1, 0, 0, 0, 0, 1, 0, 1, 0, 0, 0, 0, 0, 2, 1, 1, 1, 2, 1, 2, 1, 1, 1, 2, 1, 1, 1, 1, 1, 2, 2, 1, 1, 1, 2, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 1, 0, 1, 0, 0, 0, 2, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 1, 1, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 1, 0, 0, 0, 0, 1

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,5

LINKS

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

EXAMPLE

prime(5) = 11, so a(5)=2 and prime(1242) = 10111, so a(1242)=4.

MATHEMATICA

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

PROG

(Haskell)

a085975 = count1 0 . a000040 where