A173230 Primes p of the form 6k+1 such that 6p+1 is also prime.
7, 13, 37, 61, 73, 103, 151, 181, 241, 271, 277, 283, 313, 331, 367, 373, 397, 577, 601, 607, 661, 727, 751, 787, 853, 907, 937, 1033, 1063, 1117, 1171, 1201, 1321, 1327, 1381, 1423, 1453, 1531, 1567, 1693, 1777, 1831, 1873, 1987, 1993, 2137, 2161, 2203, 2221, 2281, 2287, 2293, 2347, 2551, 2593, 2677, 2767, 2791, 2851, 2971, 3037, 3061, 3163, 3181, 3307, 3391
Offset: 1
Keywords
Programs
-
Magma
[ p: n in [0..600] | IsPrime(6*p+1) and IsPrime(p) where p is 6*n+1 ];
-
Mathematica
sp1Q[n_]:=IntegerQ[(n-1)/6]&&PrimeQ[6n+1]; Select[Prime[Range[500]],sp1Q] (* Harvey P. Dale, Apr 08 2018 *)
Comments