A161616 Primes p such that 2*p+111546435 is also prime.
29, 41, 53, 71, 79, 97, 103, 113, 127, 131, 137, 139, 151, 163, 179, 197, 199, 223, 227, 257, 271, 277, 283, 311, 313, 331, 337, 349, 353, 383, 389, 401, 419, 431, 443, 461, 503, 521, 563, 619, 643, 653, 673, 683, 769, 809, 827, 883, 887, 911, 919, 929, 947
Offset: 1
Links
- Vincenzo Librandi, Table of n, a(n) for n = 1..1000
Programs
-
Magma
[p: p in PrimesUpTo(1000) | IsPrime(2*p + 111546435)]; // Vincenzo Librandi, Apr 15 2013
-
Mathematica
a=3*5*7*11*13*17*19*23;c=0;lst={};Do[p=Prime[n];If[PrimeQ[2*p+a],AppendTo[lst,p],c++ ],{n,6!}];lst Select[Prime[Range[200]], PrimeQ[2 # + 111546435]&] (* Vincenzo Librandi, Apr 15 2013 *)
Comments