OFFSET
1,1
MATHEMATICA
Select[Prime[Range[140]], !PrimeQ[#+10]&&(!PrimeQ[#-10]||#<10)&] (* James C. McMahon, Jul 12 2025 *)
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Juri-Stepan Gerasimov, Jun 30 2008, Nov 07 2009
EXTENSIONS
Edited by Charles R Greathouse IV, Mar 25 2010
STATUS
approved
