login
A073691
Primes p = product(A073692(n), A073692(n)+2,..., A073692(n+1)-2) plus 2.
2
1, 3, 5, 7, 9011, 17, 19, 401, 577, 29, 31, 51666617, 43, 90947, 410006013351009077, 71, 73, 5477, 79, 45144947, 89, 8101, 8837, 13579634496890387, 1520417, 14401, 15377, 5279231461457, 2802659, 21317
OFFSET
1,2
MATHEMATICA
t = {s = 1}; Do[s = s*i; If[PrimeQ[s + 2], AppendTo[t, s + 2]; s = 1], {i, 1, 148, 2}]; t (* Jayanta Basu, Jul 07 2013 *)
PROG
(PARI) print1("1, "):p=1:c=3:for(n=1, 50, while(!isprime(p+2), p=p*c:c=c+2):print1(p+2", "):p=c:c=c+2)
CROSSREFS
Sequence in context: A069463 A288212 A273010 * A110336 A073695 A268694
KEYWORD
nonn
AUTHOR
Amarnath Murthy, Aug 12 2002
EXTENSIONS
Edited by Ralf Stephan, Mar 26 2003
STATUS
approved