OFFSET
1,1
MATHEMATICA
Table[c=(n(n+1))/2; FromDigits[Join[PadRight[{}, c, 1], PadRight[{}, c, 0], PadRight[{}, c, 1]]], {n, 10}] (* Harvey P. Dale, Oct 15 2013 *)
CROSSREFS
KEYWORD
base,easy,nonn
AUTHOR
Omar E. Pol, Mar 29 2008
STATUS
approved