OFFSET
1,1
MATHEMATICA
Select[Table[Numerator[Sum[Prime[k]^2, {k, 1, n}]/Product[Prime[k], {k, 1, n}]], {n, 1, 200}], PrimeQ[ #1]&]
CROSSREFS
KEYWORD
nonn
AUTHOR
Alexander Adamchuk, Aug 21 2006
STATUS
approved