A106025 Primes p such that 28*p +- 33, 38*p +- 33 and 58*p +- 33 are all primes.

2, 42187, 420103, 764993, 785003, 992623, 1109327, 1155373, 1285793, 1444763, 1503913, 2105833, 2363807, 2842597, 3026203, 3693863, 5957047, 6092903, 6692383, 7195907, 7405627, 9710783, 11203733, 11548633, 12648127, 12758387

Offset

1,1

Links

Table of n, a(n) for n=1..26.

Mathematica

Select[Prime[Range[400000]], PrimeQ[28#+33]&&PrimeQ[28#-33]&&PrimeQ[38#+33]&&PrimeQ[38#-33]&&PrimeQ[58#+33]&&PrimeQ[58#-33]&]

Prog

(Magma) [p: p in PrimesUpTo(100000000)| IsPrime(28*p+33) and IsPrime(28*p-33)and IsPrime(38*p-33) and IsPrime(38*p+33) and IsPrime(58*p-33) and IsPrime(58*p+33)]; // Vincenzo Librandi, Nov 13 2010

Crossrefs

Sequence in context: A303738 A055578 A232733 * A157959 A364134 A290047

Adjacent sequences: A106022 A106023 A106024 * A106026 A106027 A106028

Keyword

nonn

Author

Zak Seidov, May 05 2005

Status

approved