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
More terms from R. J. Mathar, Jul 15 2007
STATUS
approved