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,1

Links

Robert Israel, Table of n, a(n) for n = 1..10000

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]&]

Prog

(Magma) [p: p in PrimesUpTo(10000)| IsPrime(5*p+4) and IsPrime(4*p+5)]; // Vincenzo Librandi, Nov 13 2010

Crossrefs

Intersection of A023214 and A023218.

Sequence in context: A108126 A106256 A091624 * A087908 A152472 A117012

Adjacent sequences: A106075 A106076 A106077 * A106079 A106080 A106081

Keyword

nonn

Author

Zak Seidov, May 07 2005

Extensions

More terms from Vincenzo Librandi, Apr 01 2010

Status

approved