A101768 Numbers k such that k, 2*k+1, 3*k+2, 4*k+3, 5*k+4, 6*k+5, 7*k+6 are primes.

2894219, 5246009, 8189999, 8678669, 13951559, 18160379, 24765509, 38911949, 40645919, 60041519, 64523969, 108405989, 124028309, 126392699, 132767039, 142738679, 189142589, 242024369, 248451839, 325561319, 354218759, 392136359

Offset: 1

Author

Jonathan Vos Post and Ray Chandler, Dec 31 2004

Keywords

• nonn
• easy

Crossrefs

Cf. A000040, A005384, A067256-A067258, A101767-A101770.

Programs

Mathematica

a={}; Do[p=Prime[n]; If[PrimeQ[p*2+1] && PrimeQ[p*3+2] && PrimeQ[p*4+3] && PrimeQ[p*5+4] && PrimeQ[p*6+5] && PrimeQ[p*7+6], AppendTo[a, p]], {n, 1, 17^5}]; a (* Vladimir Joseph Stephan Orlovsky, Apr 29 2008 *)
Select[Range[4*10^8], And@@PrimeQ[#*Range[7]+Range[0,6]]&] (* Harvey P. Dale, Jul 22 2011 *)