|
%I #8 Jul 08 2023 14:32:39
%S 2,3,5,7,11,13,17,19,43,53,59,73,79,83,89,149,367,431,853,4007,6143,
%T 8819,8969
%N Primes p = prime(i) such that p(i)# - p(i+1) or p(i)# + p(i+1) or both are primes.
%H Dario Alejandro Alpern, <a href="https://www.alpertron.com.ar/ECM.HTM">Factorization using the Elliptic Curve Method</a>.
%H Hisanori Mishima, <a href="https://www.asahi-net.or.jp/~KC2H-MSM/mathland/matha1/matha106.htm">PI Pn + NextPrime (n = 1 to 100)</a>.
%H Hisanori Mishima, <a href="https://www.asahi-net.or.jp/~KC2H-MSM/mathland/matha1/matha107.htm">PI Pn - NextPrime (n = 1 to 100)</a>.
%e 3=p(2) is in the sequence because p(2)# + p(3) = 11 is prime.
%t 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}]
%Y Cf. A087714.
%K hard,more,nonn
%O 1,1
%A _Ray Chandler_, Oct 05 2003
%E Edited by _Robert G. Wilson v_, Oct 17 2003
|
