OFFSET
1,2
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
MATHEMATICA
nxt[{n_, a_}]:={n+1, FactorInteger[a+n+1][[-1, 1]]}; Transpose[NestList[nxt, {1, 1}, 90]][[2]] (* Harvey P. Dale, Nov 29 2013 *)
PROG
(PARI) gpf(n) = if(n==1, 1, my(v=factor(n)[, 1]); v[#v]);
a_vector(len) = my(t=0); vector(len, n, t=gpf(t+n)); \\ Kevin Ryde, Jun 21 2023
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Zak Seidov, Oct 19 2002
EXTENSIONS
Definition clarified by Harvey P. Dale, Nov 29 2013
STATUS
approved