A106077 Primes p such that 5*p + 2 and 2*p + 5 are primes.

3, 7, 13, 19, 31, 61, 67, 73, 79, 97, 109, 151, 181, 313, 373, 457, 523, 541, 613, 643, 661, 709, 727, 739, 769, 811, 859, 991, 997, 1039, 1069, 1087, 1171, 1249, 1321, 1327, 1381, 1399, 1483, 1657, 1663, 1693, 1747, 1777, 1801, 1867, 2053, 2113, 2239, 2251

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+2) and isprime(2*p+5) end proc:
select(filter, [seq(i, i=3..3000, 2)]); # Robert Israel, Aug 25 2025

Mathematica

Select[Prime[Range[220]], PrimeQ[2#+5]&&PrimeQ[5#+2]&]

Prog

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

Crossrefs

Cf. A023217.

Sequence in context: A106061 A155703 A023217 * A216515 A048977 A216518

Adjacent sequences: A106074 A106075 A106076 * A106078 A106079 A106080

Keyword

nonn

Author

Zak Seidov, May 07 2005

Extensions

More terms from Vincenzo Librandi, Mar 28 2010

Status

approved