|
%I #13 Nov 21 2013 12:48:36
%S 2894219,5246009,8189999,8678669,13951559,18160379,24765509,38911949,
%T 40645919,60041519,64523969,108405989,124028309,126392699,132767039,
%U 142738679,189142589,242024369,248451839,325561319,354218759,392136359
%N Numbers n such that n, 2n+1, 3n+2, 4n+3, 5n+4, 6n+5, 7n+6 are primes.
%t 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}]; Print[a]; - _Vladimir Joseph Stephan Orlovsky_, Apr 29 2008
%t Select[Range[4*10^8], And@@PrimeQ[#*Range[7]+Range[0,6]]&] (* _Harvey P. Dale_, Jul 22 2011 *)
%Y Cf. A000040, A005384, A067256-A067258, A101767-A101770.
%K nonn,easy
%O 1,1
%A _Jonathan Vos Post_ and _Ray Chandler_, Dec 31 2004
|
