OFFSET
1,2
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
MAPLE
A006530 := proc(n) max(op(numtheory[factorset](n))) ; end:
A155047 := proc(n) option remember; if n <=2 then n; else A006530( add(procname(i), i=1..n-1)) ; fi; end:
seq(A155047(n), n=1..120) ; # R. J. Mathar, Oct 23 2009
MATHEMATICA
nxt[{t_, a_}]:=Module[{lpf=FactorInteger[t][[-1, 1]]}, {t+lpf, lpf}]; Join[ {1}, NestList[ nxt, {3, 2}, 80][[All, 2]]] (* Harvey P. Dale, Aug 06 2018 *)
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Giovanni Teofilatto, Jan 19 2009
EXTENSIONS
Extended by R. J. Mathar, Oct 23 2009
STATUS
approved