OFFSET
0,3
COMMENTS
LINKS
Ivan Neretin, Table of n, a(n) for n = 0..10000
MATHEMATICA
Nest[Append[#, (x = Max@Intersection[Most@#, Divisors[#[[-1]]]]) + #[[-1]]/x] &, {1, 1}, 77] (* Ivan Neretin, Aug 24 2016 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Dec 05 2004
STATUS
approved