OFFSET
1,1
COMMENTS
Subsequence of A049481. - Zak Seidov, Apr 10 2015
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..1000
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 *)
PROG
(Magma) [p: p in PrimesUpTo(1000) | IsPrime(p + 30) and IsPrime(p + 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
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Vincenzo Librandi, Jan 26 2009
STATUS
approved