OFFSET
1,1
MATHEMATICA
With[{e=RealDigits[E, 10, 500][[1]]}, FromDigits/@Table[Take[e, {n (n-1)/2+1, (n(n+1))/2}], {n, 25}]]
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Harvey P. Dale, Dec 24 2011
STATUS
approved