A106057 Primes p such that 1*p + 4 and 4*p + 1 are primes.
3, 7, 13, 37, 43, 67, 79, 97, 127, 163, 193, 277, 307, 487, 499, 673, 739, 853, 883, 1087, 1093, 1297, 1423, 1429, 1549, 1567, 1579, 1597, 1663, 2293, 2437, 2683, 2953, 3037, 3163, 3457, 3793, 3907, 3943, 4447, 4519, 4729, 4789, 4999, 5503, 5527, 5569, 5653
Offset: 1
Keywords
Crossrefs
Cf. A045536 (primes p such that 1*p + 2 and 2*p + 1 are primes).
Programs
-
Magma
[p: p in PrimesUpTo(100000)| IsPrime(p+4) and IsPrime(4*p+1)]; // Vincenzo Librandi, Nov 13 2010
-
Mathematica
Select[Prime[Range[220]], PrimeQ[4#+1]&&PrimeQ[1#+4]&]
Extensions
More terms from Vincenzo Librandi, Apr 01 2010