OFFSET
0,2
LINKS
Robert Israel, Table of n, a(n) for n = 0..10000
MAPLE
gpf:= proc(n) max(numtheory:-factorset(n)) end proc:
gpf(1):= 1:
A:= Array(0..100): A[0]:= 1:
for n from 1 to 100 do A[n]:= gpf(A[n-1])+n od:
convert(A, list); # Robert Israel, Nov 26 2020
MATHEMATICA
a={1, 2, 4}; For[n=3, n<=60, n++, b=n+FactorInteger[a[[n]]][[ -1, 1]]; AppendTo[a, b]]; a (* Stefan Steinerberger, May 18 2007 *)
CROSSREFS
KEYWORD
nonn,look
AUTHOR
Leroy Quet, Feb 26 2006
EXTENSIONS
More terms from Stefan Steinerberger, May 18 2007
STATUS
approved