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
Keywords
Links
- Jens Kruse Andersen, Table of n, a(n) for n = 1..10000
Programs
-
Mathematica
s={};Do[If[PrimeQ[p=52*n+1]&&PrimeQ[52*p+1],AppendTo[s,n]],{n,3000}];s Select[Range[3000],AllTrue[{52#+1,53+2704#},PrimeQ]&] (* Harvey P. Dale, Mar 21 2025 *) -
PARI
for(n=1,10^4,p=52*n+1;if(isprime(p)&&isprime(52*p+1),print1(n,", "))) \\ Derek Orr, Oct 06 2014
Comments