OFFSET
1,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
EXAMPLE
MATHEMATICA
prQ[n_]:=Module[{a=n-1, b=n+1}, (PrimeQ[a]&&PrimeQ[b/5])||(PrimeQ[b] && PrimeQ[a/5])]; Select[Range[3000], prQ] (* Harvey P. Dale, Jun 05 2012 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Juri-Stepan Gerasimov, Aug 02 2009
EXTENSIONS
114, 444 added, 1303 removed, 1666 replaced by 1656 - R. J. Mathar, Aug 07 2009
STATUS
approved