login
A106025
Primes p such that 28*p +- 33, 38*p +- 33 and 58*p +- 33 are all primes.
0
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
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
KEYWORD
nonn
AUTHOR
Zak Seidov, May 05 2005
STATUS
approved