OFFSET
1,2
MATHEMATICA
Table[Total[Table[If[IntegerQ[(n-5)/12], 1, 0], {n, Prime[Range[ PrimePi[ 10^k]]]}]], {k, 10}] (* Harvey P. Dale, Oct 27 2019 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Jan 12 2004
STATUS
approved