OFFSET
1,2
LINKS
Alois P. Heinz, Table of n, a(n) for n = 1..626
FORMULA
a(n) = (10^n-1)/9 * [x^n] ((x^10-1)/(x-1))^n. - Alois P. Heinz, Feb 07 2012
EXAMPLE
Take n = 3. The numbers to be summed are 111, 3, 30, 300, 210, 201, 120, 102, 21 and 12, which add to 1110.
MAPLE
A007953 := proc(n) add(i, i=convert(n, base, 10)) ; end: A130835 := proc(n) local a, i; a := 0 ; for i from 1 to 10^n-1 do if A007953(i) = n then a := a+i ; fi ; od ; RETURN(a) ; end: seq(A130835(n), n=1..4) ; # R. J. Mathar, Aug 01 2007
# second Maple program:
b:= proc(n, i) option remember; `if`(n=0, 1,
`if`(i=0, 0, add(b(n-j, i-1), j=0..min(n, 9))))
end:
a:= n-> b(n, n)*(10^n-1)/9:
seq(a(n), n=1..20); # Alois P. Heinz, Nov 02 2009
CROSSREFS
KEYWORD
base,nonn
AUTHOR
J. M. Bergot, Jul 18 2007
EXTENSIONS
a(4)-a(6) from R. J. Mathar, Aug 01 2007
a(7)-a(12) from Donovan Johnson, Jul 02 2009
More terms from Alois P. Heinz, Nov 02 2009
STATUS
approved