|
|
A084724
|
|
Beginning with 2, the smallest even number greater than the previous term such that every partial product + 1 is a prime.
|
|
5
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
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 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Amarnath Murthy and Meenakshi Srikanth (menakan_s(AT)yahoo.com), Jun 13 2003
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|