OFFSET
1,2
FORMULA
T(n,k)=b(k)*10^A055642[A000217(n)]+A000217(n) with b(1)=0, b(k)<b(k+1), 1<=k<=n. - R. J. Mathar, Aug 03 2007
EXAMPLE
MAPLE
A000217 := proc(n) n*(n+1)/2 ; end: A095225 := proc(nrow) local a, i, dlen; i := nrow ; a := [A000217(i)] ; dlen := ilog10(a[1])+1 ; while nops(a) < nrow do i := i+1 ; if A000217(i) mod 10^dlen = a[1] then a := [op(a), A000217(i)] ; fi ; od ; RETURN(a) ; end: seq(op(A095225(n)), n=1..10) ; # R. J. Mathar, Aug 03 2007
CROSSREFS
KEYWORD
AUTHOR
Amarnath Murthy, Jun 10 2004
EXTENSIONS
Corrected and extended by R. J. Mathar, Aug 03 2007
STATUS
approved