OFFSET
1,1
MATHEMATICA
Differences[NestList[# + FactorInteger[#^2 - 4][[1, 1]] - 1 &, 5, 100]] + 1 (* Amiram Eldar, Dec 14 2018 after Michael De Vlieger at A177941 *)
PROG
(PARI) listap(nn) = {my(va = vector(nn), p); va[1] = 5; for (n=2, nn, p = factor(va[n-1]^2-4)[1, 1]; print1(p, ", "); va[n] = va[n-1] + p - 1; ); } \\ Michel Marcus, Dec 14 2018
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Shevelev, May 15 2010
EXTENSIONS
Entries checked by R. J. Mathar, Jun 30 2010
STATUS
approved