OFFSET
1,1
COMMENTS
5 is the only prime p for which p-3 is prime, since p-3 is even for any odd prime and 2 is the only even prime. - Harvey P. Dale, Apr 03 2019
FORMULA
a(n)=A046117(n+1).
MATHEMATICA
Select[Prime[Range[150]], AnyTrue[#+{-3, -6}, PrimeQ]&] (* Requires Mathematica version 10 or later *) (* or *) Join[{5}, Select[Prime[ Range[ 3, 150]], PrimeQ[#-6]&]] (* see Comment *) (* Harvey P. Dale, Apr 03 2019 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Juri-Stepan Gerasimov, Feb 07 2010
EXTENSIONS
449 inserted by R. J. Mathar, Mar 09 2010
STATUS
approved