A051957 a(n) = smallest number > a(n-1) such that a(1)*a(2)*...*a(n) - 1 is a prime.

3, 4, 5, 6, 8, 9, 11, 14, 18, 20, 21, 27, 28, 37, 62, 77, 86, 97, 100, 107, 109, 166, 167, 181, 196, 225, 262, 266, 268, 274, 278, 290, 305, 345, 378, 385, 414, 429, 438, 442, 498, 503, 516, 531, 573, 595, 596, 611, 640, 665, 749, 794, 870

Offset: 1

Author

Felice Russo, Dec 21 1999

Keywords

• nice
• nonn

Links

• Amiram Eldar, Table of n, a(n) for n = 1..1000 (terms 1..200 from T. D. Noe)

Crossrefs

Cf. A046966, A051956.

Programs

Mathematica

seq={3};Do[n=Last[seq]+1;While[!PrimeQ[n Times@@seq-1],n++]; AppendTo[ seq,n];,{60}];seq (* Harvey P. Dale, Oct 21 2011 *)