login
A106023
Primes p such that 8*p +- 3, 28*p +- 3 and 38*p +- 3 are all primes.
0
2, 7, 6977, 25247, 35803, 96017, 132547, 155003, 347317, 741683, 765613, 820223, 943567, 1370063, 1514917, 1726303, 2589557, 2929523, 3280307, 3868247, 4612183, 4914397, 5632597, 5788043, 5920693, 6033403, 6993593, 7147303, 8045623
OFFSET
1,1
MATHEMATICA
Select[Prime[Range[40000]], PrimeQ[8#+3]&&PrimeQ[8#-3]&&PrimeQ[28#+3]&&PrimeQ[28#-3]&&PrimeQ[38#+3]&&PrimeQ[38#-3]&]
PROG
(Magma) [p: p in PrimesUpTo(10000000)| IsPrime(28*p+3) and IsPrime(28*p-3)and IsPrime(8*p-3) and IsPrime(8*p+3) and IsPrime(38*p-3) and IsPrime(38*p+3)]; // Vincenzo Librandi, Nov 13 2010
CROSSREFS
Sequence in context: A088549 A226704 A224420 * A309411 A215438 A152181
KEYWORD
nonn
AUTHOR
Zak Seidov, May 05 2005
STATUS
approved