login
A236465
Smallest prime a(n) such that 1 + a(1)*a(2)*...*a(n) is prime.
2
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
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
Sequence in context: A127684 A036012 A084401 * A131619 A048485 A127714
KEYWORD
nonn
AUTHOR
Thomas Ordowski, Jan 26 2014
EXTENSIONS
a(11)-a(69) from Giovanni Resta, Jan 26 2014
STATUS
approved