OFFSET
1,1
COMMENTS
All terms are divisible by 3, because if m == 1 or 2 (mod 3), either q or p is divisible by 3.
LINKS
Jens Kruse Andersen, Table of n, a(n) for n = 1..10000
MATHEMATICA
s={}; Do[If[PrimeQ[p=52*n+1)]&&PrimeQ[52*p+1], AppendTo[s, n]], {n, 3000}]; s
PROG
(PARI)
for(n=1, 10^4, p=52*n+1; if(isprime(p)&&isprime(52*p+1), print1(n, ", "))) \\ Derek Orr, Oct 06 2014
KEYWORD
nonn
AUTHOR
Zak Seidov, Oct 05 2014
STATUS
approved