OFFSET
1,2
COMMENTS
Numbers k such that A072004(k) = 0.
a(6) > 10^11. - Giovanni Resta, Mar 07 2013
EXAMPLE
MATHEMATICA
Module[{nn=17000, prs}, prs=Accumulate[Prime[Range[nn]]^2]; Select[Range[ nn], Divisible[prs[[#]], Prime[#]]&]] (* Harvey P. Dale, Nov 23 2013 *)
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Randy L. Ekl and Zak Seidov, Oct 17 2002
STATUS
approved