OFFSET
1,1
LINKS
G. C. Greubel, Table of n, a(n) for n = 1..5000
FORMULA
a(n) = 2*A093013(n).
MATHEMATICA
Select[Range[600], PrimeQ[5*# -3] && PrimeQ[5*# +3] &] (* G. C. Greubel, Feb 05 2019 *)
PROG
(PARI) for(n=1, 538, if(isprime(5*n-3)&&isprime(5*n+3), print1(n, ", "))) \\ Jinyuan Wang, Feb 06 2019
CROSSREFS
KEYWORD
nonn
AUTHOR
Giovanni Teofilatto, Mar 17 2004
EXTENSIONS
Corrected and extended by Ray Chandler, Mar 19 2004
STATUS
approved