OFFSET
1,2
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
EXAMPLE
a(6) = 12, a(7) = (7*12)/3 = 28.
MATHEMATICA
nxt[{n_, a_}]:={n+1, (a(n+1))/FactorInteger[a][[-1, 1]]}; NestList[nxt, {1, 1}, 30][[All, 2]] (* Harvey P. Dale, Sep 20 2019 *)
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Amarnath Murthy, Nov 28 2004
EXTENSIONS
Extended by Ray Chandler, Dec 10 2004
STATUS
approved