A248372 Numbers m such that both p = 52*m + 1 and q = 52*p + 1 are prime.

36, 39, 60, 126, 171, 189, 195, 300, 315, 405, 420, 435, 504, 540, 570, 606, 720, 756, 816, 876, 960, 1089, 1221, 1224, 1260, 1329, 1365, 1371, 1389, 1404, 1530, 1554, 1674, 1740, 1785, 1791, 1914, 1959, 2085, 2244, 2304, 2334, 2376, 2451, 2454, 2520, 2631, 2646, 2715, 2799, 2976

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

Crossrefs

Subsequence of A248221.

Cf. A033210, A142508, A171517, A248221, A248368.

Sequence in context: A261380 A337861 A261373 * A349705 A129288 A083248

Adjacent sequences: A248369 A248370 A248371 * A248373 A248374 A248375

Keyword

nonn

Author

Zak Seidov, Oct 05 2014

Status

approved