OFFSET
1,2
MAPLE
with(numtheory): a[1]:=1: a[2]:=2: for n from 3 to 50 do a[n]:=a[n-1]+tau(a[n-1])+tau(a[n-2]) end do: seq(a[n], n=1..50); # Emeric Deutsch, Apr 30 2008
MATHEMATICA
Join[{a = 1, b = 2}, Table[c = b + Total[DivisorSigma[0, {a, b}]]; a = b; b = c; c, {n, 48}]] (* Jayanta Basu, Jun 06 2013 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Leroy Quet, Apr 21 2008
EXTENSIONS
More terms from Emeric Deutsch, Apr 30 2008
STATUS
approved