A336059 Numbers p such that p, 2p-1, 3p-2, 4p-3 are primes.
331, 1531, 3061, 4261, 4951, 6841, 10831, 15391, 18121, 23011, 25411, 26041, 31771, 33301, 40111, 41491, 45061, 49831, 53881, 59341, 65851, 70141, 73771, 78541, 88741, 95461, 96931, 109471, 111721, 112621, 117721, 131311, 133201, 134731, 135301, 150151, 165901
Offset: 1
Links
- Wikipedia, Cunningham chain
Programs
-
Mathematica
Select[Range[10^5], AllTrue[{#, 2# - 1, 3# - 2, 4# - 3}, PrimeQ] &] (* Amiram Eldar, Jul 07 2020 *)
Formula
a(n) = A237189(n) + 1.
Comments