%I #11 Nov 17 2018 21:45:23
%S 0,2,3,4,7,10,13,16,21,22,25,28,31,36,37,42,47,50,51,52,55,58,69,70,
%T 79,84,89,90,91,100,111,112,115,118,121,130,133,136,141,142,151,156,
%U 157,160,171,176,177,182,185,188,191,192,197,200,201,208,211,220,223,226
%N Slowest increasing sequence where 2 consecutive integers sum up to a prime.
%C Essentially the same as A073627. [_R. J. Mathar_, Aug 24 2008]
%C Essentially the same as A062042. [_Zak Seidov_, Nov 04 2009]
%e 0+2=2, which is a prime; 2+3=5=prime; 3+4=7=prime; 4+7=11=prime, etc.
%t k = 0; Print[k]; Do[p = k + 1; While[ !PrimeQ[k + p], p++ ]; k = p; Print[k], {n, 1, 100}] (* _Ryan Propper_, Sep 04 2005 *)
%K easy,nonn
%O 0,2
%A _Eric Angelini_, Jun 11 2005
%E More terms from _Ryan Propper_, Sep 04 2005
|