OFFSET
1,1
COMMENTS
MATHEMATICA
Select[Range[500], Numerator[(1+Sum[Prime[k], {k, 1, #1}])/Product[Prime[k], {k, 1, #1}]]==1&]
CROSSREFS
KEYWORD
nonn
AUTHOR
Alexander Adamchuk, Aug 19 2006
STATUS
approved