A085980 - OEIS

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

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

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'