|
%I #12 Aug 12 2017 10:37:15
%S 2,6,8,12,16,18,20,22,26,36,42,44,100,120,124,162,168,174,192,218,272,
%T 278,338,364,380,392,502,512,532,560,594,614,698,790,814,838,922,938,
%U 1072,1082,1092,1102,1146,1182,1256,1354,1360,1484,1508,1566,1662,1690
%N Beginning with 2, the smallest even number greater than the previous term such that every partial product + 1 is a prime.
%H Harvey P. Dale, <a href="/A084724/b084724.txt">Table of n, a(n) for n = 1..100</a>
%t ppp[{p_,a_}]:=Module[{n=a+2},While[!PrimeQ[p*n+1],n=n+2];{p*n,n}]; NestList[ ppp,{2,2},60][[All,2]] (* _Harvey P. Dale_, Aug 12 2017 *)
%Y Cf. A083566, A084723, A084725.
%K nonn
%O 1,1
%A _Amarnath Murthy_ and Meenakshi Srikanth (menakan_s(AT)yahoo.com), Jun 13 2003
%E More terms from _David Wasserman_, Jan 03 2005
|
