OFFSET
1,1
COMMENTS
a(17) > 10^12. [From Donovan Johnson, Oct 24 2009]
EXAMPLE
(13+17+19)/7 is an integer, 13 is the sixth prime so we divide by 7.
MATHEMATICA
Prime[ Select[ Range[9*10^7], IntegerQ[(Prime[ # ] + Prime[ # + 1] + Prime[ # + 2])/(# + 1)] & ]]
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Jun 27 2002
EXTENSIONS
a(13)-a(16) from Donovan Johnson, Oct 24 2009
STATUS
approved