OFFSET
1,2
EXAMPLE
a(2) = 1 + 2 + 4 = 7.
a(3) = 1 + 2 + 3 + 4 + 6 + 8 + 9 + 12 + 18 + 27 = 90.
MAPLE
a:= proc(m) option remember; local b; b:=
proc(n) option remember; `if`(n=0, {1},
map(x-> seq(x*i, i=1..m), b(n-1)))
end; forget(b); add(i, i=b(m))
end:
seq(a(n), n=1..12); # Alois P. Heinz, Jan 11 2019
MATHEMATICA
a[m_] := a[m] = Module[{b}, b[n_] := b[n] = If[n==0, {1}, Map[Table[# i, {i, 1, m}]&, b[n-1]]] // Flatten // Union; b[m] // Total];
Array[a, 12] (* Jean-François Alcover, Nov 26 2020, after Alois P. Heinz *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Seiichi Manyama, Jan 10 2019
EXTENSIONS
a(15)-a(18) from Alois P. Heinz, Jan 11 2019
STATUS
approved