A073691 Primes p = product(A073692(n), A073692(n)+2,..., A073692(n+1)-2) plus 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

Links

Table of n, a(n) for n=1..30.

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

Cf. A073692, A073693.

Sequence in context: A069463 A288212 A273010 * A110336 A073695 A268694

Adjacent sequences: A073688 A073689 A073690 * A073692 A073693 A073694

Keyword

nonn

Author

Amarnath Murthy, Aug 12 2002

Extensions

Edited by Ralf Stephan, Mar 26 2003

Status

approved