[go: up one dir, main page]

login
A081542
Row sums of A081541.
2
0, 3, 84, 1605, 25926, 380247, 5234568, 68888889, 876543210, 10864197531, 1022851851852, 112533839506173, 12323644827160494, 1341444755814814815, 145254565866802469136
OFFSET
1,2
MAPLE
conca := proc(S) local resul, d, i ; resul := 0 ; for i from 1 to nops(S) do d := ilog10(op(i, S))+1 ; resul := resul*10^d+op(i, S) ; od ; resul ; end: A081542 := proc(row) local a, p, i; if row =1 then RETURN(0) ; fi ; a := [] ; p := [seq(row+1-i, i=1..row)] ; for i from 1 to row do a := [op(a), conca(subsop(i=NULL, p))] ; od: add(op(i, a), i=1..row) ; end: seq(op(A081542(n)), n=1..15) ; # R. J. Mathar, Jul 15 2007
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Amarnath Murthy, Mar 29 2003
EXTENSIONS
Needs editing - see A081539, A081540 for a model. - N. J. A. Sloane
More terms from R. J. Mathar, Jul 15 2007
STATUS
approved