A072162 (Prime(n)+prime(n+1)+prime(n+2))/(n+1) is an integer; sequence gives prime(n).

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]

Links

Table of n, a(n) for n=1..16.

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

Adjacent sequences: A072159 A072160 A072161 * A072163 A072164 A072165

Keyword

nonn

Author

Robert G. Wilson v, Jun 27 2002

Extensions

a(13)-a(16) from Donovan Johnson, Oct 24 2009

Status

approved