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: A081539 := proc(row) local a, p, i; if row =1 then RETURN([0]) ; fi ; a := [] ; p := [seq(i, i=1..row)] ; for i from 1 to row do a := [op(a), conca(subsop(i=NULL, p))] ; od: sort(a)[1..row] ; end: A081540 := proc(n) local r ; r := A081539(n) ; add(r[i], i=1..n) ; end: seq(A081540(n), n=1..20) ; # R. J. Mathar, Jul 15 2007
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Amarnath Murthy, Mar 29 2003
EXTENSIONS
Corrected and extended by R. J. Mathar, Jul 15 2007
STATUS
approved