A106060 Primes p such that 1*p + 8 and 8*p + 1 are primes.
5, 11, 29, 71, 101, 131, 149, 269, 401, 431, 449, 479, 491, 599, 761, 821, 929, 1229, 1289, 1559, 1571, 1601, 1619, 1871, 2081, 2129, 2339, 2531, 2549, 2609, 2741, 3041, 3209, 3299, 3461, 3719, 3761, 4289, 5189, 5861, 6269, 6359, 6569, 6701, 6959, 7211
Offset: 1
Keywords
Programs
-
Magma
[p: p in PrimesUpTo(10000) | IsPrime(p+8) and IsPrime(8*p+1)]; // Vincenzo Librandi, Nov 13 2010
-
Mathematica
Select[Prime[Range[220]], PrimeQ[8#+1]&&PrimeQ[1#+8]&]
Comments