A247273
Primes p such that p + m^2 is prime for all m in {2,4,6,8,10,12,14,16,18,20,22}.
Original entry on oeis.org
163, 409333, 9671300983, 186521536807, 376040154163, 459775038913, 485142116713, 773464440907, 916792710667, 982557050143, 1087801149583, 1213507492723, 1822896797857, 2131006835017, 3026318319523, 4617478214407, 5141744558017, 6552892412047, 6629618954863, 6787014897877, 7636453217677, 7788411508483, 8311114648153, 8547311473387, 8668135024957, 9206471763547
Offset: 1
-
forprime(p=1,10^12,c=0;for(i=1,11,if(ispseudoprime(p+(2*i)^2),c++));if(c==11,print1(p,", "))) \\ Derek Orr, Sep 11 2014
A247275
Primes p such that p + m^2 is prime for all m in {2, 4, 6, 8, 10, 12, 14, 16, 18, 20, 22, 24}.
Original entry on oeis.org
163, 409333, 376040154163, 1822896797857, 9871431850597, 13491637509487, 19802478368863
Offset: 1
-
forprime(p=1, oo, c=0; for(i=1, 12, if(ispseudoprime(p+(2*i)^2), c++)); if(c==12, print1(p, ", "))) \\ Derek Orr, Sep 11 2014
A247276
Primes p such that p + m^2 is prime for all m in {2, 4, 6, 8, 10, 12, 14, 16, 18, 20, 22, 24, 26}.
Original entry on oeis.org
163, 409333, 13491637509487, 19802478368863
Offset: 1
-
Select[Prime[Range[35000]],AllTrue[#+{4,16,36,64,100,144,196,256,324,400,484,576,676},PrimeQ]&] (* The program generates the first two terms of the sequence. To generate a(3) and a(4), increase the Range constant to 67*10^10 but the program will take a very long time to run. *) (* Harvey P. Dale, Mar 05 2025 *)
-
forprime(p=1, 10^12, c=0; for(i=1, 13, if(ispseudoprime(p+(2*i)^2), c++);if(!ispseudoprime(p+(2*i)^2),break)); if(c==13, print1(p, ", "))) \\ Derek Orr, Sep 11 2014
Showing 1-3 of 3 results.
Comments