A106078 Primes p such that 5*p+4 and 4*p+5 are primes.
3, 17, 47, 83, 101, 113, 167, 251, 257, 281, 311, 467, 521, 593, 617, 677, 827, 857, 881, 1277, 1319, 1583, 1847, 2309, 2357, 2423, 2579, 2591, 2897, 2903, 3323, 3767, 3779, 3911, 4157, 4229, 4283, 4481, 4493, 4523, 4637, 4871, 5087, 5279, 5297, 5801, 5867
Offset: 1
Links
- Robert Israel, Table of n, a(n) for n = 1..10000
Programs
-
Magma
[p: p in PrimesUpTo(10000)| IsPrime(5*p+4) and IsPrime(4*p+5)]; // Vincenzo Librandi, Nov 13 2010
-
Maple
filter:= proc(p) isprime(p) and isprime(5*p+4) and isprime(4*p+5) end proc: select(filter, [seq(i, i=3..6000, 2)]); # Robert Israel, Aug 25 2025
-
Mathematica
Select[Prime[Range[220]], PrimeQ[4#+5]&&PrimeQ[5#+4]&]
Extensions
More terms from Vincenzo Librandi, Apr 01 2010