login
A072162
(Prime(n)+prime(n+1)+prime(n+2))/(n+1) is an integer; sequence gives prime(n).
0
2, 3, 13, 173, 769, 1627, 6053, 24281, 18574499, 18574519, 18574657, 136197419, 7348138997, 27788573777, 204475054739, 773853721099
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
Sequence in context: A068083 A137459 A267422 * A113785 A118323 A113494
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Jun 27 2002
EXTENSIONS
a(13)-a(16) from Donovan Johnson, Oct 24 2009
STATUS
approved