OFFSET
1,2
COMMENTS
See A122618 for notation.
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..1000
MAPLE
a:= n-> (l-> add(l[i]*(n*(n+1)/2)^(i-1), i=1..nops(l)))(convert(n, base, 10)):
seq(a(n), n=1..60); # Alois P. Heinz, Jul 04 2022
MATHEMATICA
f[n_]:=FromDigits[IntegerDigits@n, n (n + 1) / 2]; Array[f, 64] (* Vincenzo Librandi, Sep 05 2016 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
N. J. A. Sloane, Sep 21 2006
STATUS
approved