OFFSET
1,4
MAPLE
MATHEMATICA
FoldList[ LCM[ #1, #2 ]/GCD[ #1, #2 ]&, 1, Nest[ Join[ #1, {Plus@@Take[ #1, -2 ]} ]&, {1, 1}, 20 ] ]
CROSSREFS
KEYWORD
nonn
AUTHOR
EXTENSIONS
Mathematica Program Aug 15 1997 (Olivier Gérard).
STATUS
approved