OFFSET
1,1
FORMULA
A122136[ a(n) ] = 1.
MATHEMATICA
Do[f=Numerator[Sum[Prime[k]^2, {k, 1, n}]/Product[Prime[k], {k, 1, n}]]; If[f==1, Print[n]], {n, 1, 10000}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Alexander Adamchuk, Aug 21 2006
STATUS
approved