OFFSET
1,2
COMMENTS
The corresponding primes are listed in A122139.
MATHEMATICA
Select[Range[200], PrimeQ[Numerator[Sum[Prime[k]^2, {k, 1, #1}]/Product[Prime[k], {k, 1, #1}]]]&]
CROSSREFS
KEYWORD
nonn
AUTHOR
Alexander Adamchuk, Aug 21 2006
STATUS
approved