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,1

Links

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

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

Crossrefs

Cf. A046966, A051956.

Sequence in context: A026464 A191885 A292868 * A139483 A051954 A049821

Adjacent sequences: A051954 A051955 A051956 * A051958 A051959 A051960

Keyword

nice,nonn

Author

Felice Russo, Dec 21 1999

Status

approved