OFFSET
1,1
COMMENTS
The first term is A164926(9).
LINKS
T. D. Noe, Table of n, a(n) for n = 1..500
MATHEMATICA
lookfor = 9; t = {}; n = 0; While[Length[t] < 25, n++; c = Prime[n]; i = 1; While[PrimeQ[i^2 + i + c], i++]; If[i == lookfor, AppendTo[t, c]]]; t
Select[Prime[Range[31*10^5, 65*10^5]], AllTrue[#+{2, 6, 12, 20, 30, 42, 56, 72}, PrimeQ] && CompositeQ[#+90]&] (* The program generates the first 6 terms of the sequence. To generate more, increase the second Range constant. *) (* Harvey P. Dale, Nov 02 2021 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
T. D. Noe, Apr 08 2012
STATUS
approved