1,2

a[15]=118305552 and the corresponding seven "polynomially consecutive" primes are: {69981018761651281, 69981019944706811, 69981021127762351, 69981022310817901, 69981023493873461, 69981024676929031, 69981025859984611}

po[x_] := 5*x^2+5*x+1 Do[s=po[n]; s0=po[n]; s1=po[n+1]; s2=po[n+2]; s3=po[n+3]; s4=po[n+4]; s5=po[n+5]; s6=po[n+6]; If[IntegerQ[n/100000], Print[{n}]]; If[PrimeQ[s0]&&PrimeQ[s1]&&PrimeQ[s2]&&PrimeQ[s3]&&PrimeQ[s4]&&PrimeQ[s5] &&PrimeQ[s6], Print[{n, s0, s1, s2, s3, s4, s5, s6}]], {n, 1, 120000000}]

Select[Range[193*10^6], AllTrue[Table[5x^2+5x+1, {x, Range[#, #+6]}], PrimeQ]&] (* The program uses the AllTrue function from Mathematica version 10 *) (* Harvey P. Dale, Apr 02 2020 *)

Cf. A090562, A090563, A090100, A090102.

Sequence in context: A004927 A074350 A144124 * A105952 A062205 A054034

Adjacent sequences: A090098 A090099 A090100 * A090102 A090103 A090104

Labos Elemer, Dec 12 2003

More terms from Don Reble, Dec 14 2003

approved