OFFSET
1,1
LINKS
Dario Alejandro Alpern, Factorization using the Elliptic Curve Method.
Hisanori Mishima, PI Pn + NextPrime (n = 1 to 100).
Hisanori Mishima, PI Pn - NextPrime (n = 1 to 100).
EXAMPLE
3=p(2) is in the sequence because p(2)# + p(3) = 11 is prime.
MATHEMATICA
Do[ p = Product[Prime[i], {i, 1, n}]; q = Prime[n + 1]; If[ PrimeQ[p - q] || PrimeQ[p + q], Print[ Prime[n]]], {n, 1, 1435}]
CROSSREFS
KEYWORD
hard,more,nonn
AUTHOR
Ray Chandler, Oct 05 2003
EXTENSIONS
Edited by Robert G. Wilson v, Oct 17 2003
STATUS
approved