A072162 - OEIS

%I #4 Mar 30 2012 17:34:49

%S 2,3,13,173,769,1627,6053,24281,18574499,18574519,18574657,136197419,

%T 7348138997,27788573777,204475054739,773853721099

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

%C a(17) > 10^12. [From _Donovan Johnson_, Oct 24 2009]

%e (13+17+19)/7 is an integer, 13 is the sixth prime so we divide by 7.

%t Prime[ Select[ Range[9*10^7], IntegerQ[(Prime[ # ] + Prime[ # + 1] + Prime[ # + 2])/(# + 1)] & ]]

%K nonn

%O 1,1

%A _Robert G. Wilson v_, Jun 27 2002

%E a(13)-a(16) from _Donovan Johnson_, Oct 24 2009