A155760 Primes p such that p+30 and p+60 are prime.
7, 11, 13, 23, 29, 37, 41, 43, 53, 67, 71, 79, 97, 107, 137, 151, 163, 167, 181, 197, 211, 233, 251, 277, 307, 337, 349, 359, 379, 389, 401, 419, 431, 449, 461, 541, 547, 557, 571, 587, 601, 613, 617, 631, 709, 727, 797, 823, 827, 877, 881, 907, 911, 937, 953
Offset: 1
Links
- Vincenzo Librandi, Table of n, a(n) for n = 1..1000
Programs
-
Magma
[p: p in PrimesUpTo(1000) | IsPrime(p + 30) and IsPrime(p + 60)]; // Vincenzo Librandi, Oct 30 2012
-
Maple
A155760:=n->`if`(isprime(n) and isprime(n+30) and isprime(n+60),n,NULL): seq(A155760(n), n=1..2000); # Wesley Ivan Hurt, Apr 11 2015
-
Mathematica
Select[Prime[Range[1000]], PrimeQ[# +30] && PrimeQ[# + 60]&] (* Vincenzo Librandi, Oct 30 2012 *)
-
PARI
select(p->isprime(p+30)&&isprime(p+60), primes(10^3)) \\ Charles R Greathouse IV, Apr 11 2015
Comments