A084724 Beginning with 2, the smallest even number greater than the previous term such that every partial product + 1 is a prime.

2, 6, 8, 12, 16, 18, 20, 22, 26, 36, 42, 44, 100, 120, 124, 162, 168, 174, 192, 218, 272, 278, 338, 364, 380, 392, 502, 512, 532, 560, 594, 614, 698, 790, 814, 838, 922, 938, 1072, 1082, 1092, 1102, 1146, 1182, 1256, 1354, 1360, 1484, 1508, 1566, 1662, 1690

Offset: 1

Author

Amarnath Murthy and Meenakshi Srikanth (menakan_s(AT)yahoo.com), Jun 13 2003

Keywords

• nonn

Links

• Harvey P. Dale, Table of n, a(n) for n = 1..100

Crossrefs

Cf. A083566, A084723, A084725.

Programs

Mathematica

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 *)

Extensions

More terms from David Wasserman, Jan 03 2005