|
|
A090111
|
|
Values of n such that P[n]=4n^2-154n+1523 is prime and also {P[n+1],...,P[n+7-1]} are prime numbers. Namely: the terms are arguments providing a sequence of 7 polynomially consecutive primes with respect to 4x^2-154x+1523 polynomial communicated by Rivera (2003).
|
|
1
|
|
|
1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 45, 53, 66, 67, 84, 129, 130, 131, 266, 328, 329, 1619, 1620, 2655, 2937, 7509, 7510, 18030, 29283, 29714, 29715, 37630, 42037, 44473, 45905
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
EXAMPLE
|
n=1 provides {1373, 1231, 1097, 971, 853, 743, 641} 7-chain of primes.
|
|
MATHEMATICA
|
po[x_] := 4*x^2-154*x+1523; Do[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[PrimeQ[s0]&&PrimeQ[s1] &&PrimeQ[s2]&&PrimeQ[s3]&&PrimeQ[s4]&&PrimeQ[s5]&&PrimeQ[s6], Print[n]], {n, 1, 1000000}]
Flatten[Position[Partition[Table[If[PrimeQ[4n^2-154n+1523], 1, 0], {n, 46000}], 7, 1], {1, 1, 1, 1, 1, 1, 1}]] (* Harvey P. Dale, Mar 06 2015 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|