OFFSET
1,1
LINKS
Daniel Starodubtsev, Table of n, a(n) for n = 1..10000
MAPLE
A140560:=n->`if`(isprime(n) and not isprime(n+30), n, NULL): seq(A140560(n), n=1..2*10^3); # Wesley Ivan Hurt, Apr 14 2017
MATHEMATICA
Select[Prime[Range[200]], !PrimeQ[#+30]&] (* Harvey P. Dale, Oct 21 2013 *)
PROG
(Magma)[p: p in PrimesUpTo(1000)|not IsPrime(p+30)] // Vincenzo Librandi, Dec 18 2010
(PARI) isok(n) = isprime(n) && !isprime(n+30); \\ Michel Marcus, Apr 14 2017
(Python)
from sympy import isprime, primerange
print([p for p in primerange(1, 1001) if not isprime(p + 30)]) # Indranil Ghosh, Apr 14 2017
CROSSREFS
KEYWORD
nonn
AUTHOR
Juri-Stepan Gerasimov, Jul 03 2008
EXTENSIONS
Corrected (3, 5 inserted) by R. J. Mathar, Apr 25 2010
STATUS
approved