A236465 Smallest prime a(n) such that 1 + a(1)*a(2)*...*a(n) is prime.

2, 2, 3, 3, 2, 13, 2, 11, 19, 2, 2, 5, 11, 2, 31, 53, 3, 31, 43, 19, 13, 11, 43, 23, 7, 5, 13, 5, 29, 2, 29, 17, 53, 157, 13, 13, 3, 5, 127, 7, 97, 5, 97, 2, 89, 61, 7, 71, 61, 5, 127, 113, 37, 191, 107, 17, 197, 37, 101, 2, 5, 7, 17, 457, 3, 19, 29, 103, 227

Offset

1,1

Links

Giovanni Resta, Table of n, a(n) for n = 1..500

Example

a(1) = 2 because 1 + 2 = 3, which is prime.
a(2) = 2 because 1 + 2 * 2 = 5, which is prime.
a(3) = 3 because 2 doesn't work, since 1 + 2 * 2 * 2 = 9 = 3^2, but 3 does work, giving 1 + 2 * 2 * 3 = 13, which is prime.

Mathematica

pr = 1; Table[p = 2; While[! PrimeQ[p * pr + 1], p = NextPrime@p]; pr *= p; p, {n, 100}] (* Giovanni Resta, Jan 26 2014 *)

Crossrefs

Cf. A036012, A039726.

Sequence in context: A127684 A036012 A084401 * A131619 A048485 A127714

Adjacent sequences: A236462 A236463 A236464 * A236466 A236467 A236468

Keyword

nonn

Author

Thomas Ordowski, Jan 26 2014

Extensions

a(11)-a(69) from Giovanni Resta, Jan 26 2014

Status

approved