OFFSET
1,1
COMMENTS
The p(n) sequence starts 461, 212981, 1632993906881, ...
EXAMPLE
a(1) = 3 as (3*7)^2 + 3*7 - 1 = 461 = p(1) is prime.
MATHEMATICA
f[0] = {0, 7}; f[n_] := f[n] = Module[{k = 1, p = f[n - 1][[2]]}, While[! PrimeQ[(k*p)^2 + k*p - 1], k++]; {k, (k*p)^2 + k*p - 1}]; Table[f[n][[1]], {n, 1, 10}] (* Amiram Eldar, Aug 28 2021 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Pierre CAMI, Jul 01 2006
EXTENSIONS
a(9)-a(12) from Amiram Eldar, Aug 28 2021
STATUS
approved