OFFSET
1,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..10000
MATHEMATICA
lst={}; Do[If[ !PrimeQ[n+10]&&PrimeQ[n], AppendTo[lst, n]], {n, 6!}]; lst (* Vladimir Joseph Stephan Orlovsky, Feb 21 2009 *)
Select[Prime[Range[100]], !PrimeQ[#+10]&] (* Harvey P. Dale, Jun 13 2017 *)
PROG
(Magma)[p: p in PrimesUpTo(500)|not IsPrime(p+10)] // Vincenzo Librandi, Dec 18 2010
CROSSREFS
KEYWORD
nonn
AUTHOR
Juri-Stepan Gerasimov, Jul 03 2008
EXTENSIONS
Corrected by Vladimir Joseph Stephan Orlovsky, Feb 21 2009
STATUS
approved