OFFSET
0,1
LINKS
G. C. Greubel, Table of n, a(n) for n = 0..1500
EXAMPLE
0.57721566490153286060651209008240243104215933593992359880576723488...
MATHEMATICA
f[n_] := Block[{ts = StringDrop[ ToString[ N[n, 250]], 2], a = {}, d = 0, k = 1}, While[ ToExpression[ts] > d, While[d >= ToExpression[ StringTake[ts, k]], k++ ]; te = ToExpression[ StringTake[ts, k]]; d = te; AppendTo[a, te]; ts = StringDrop[ts, k]; If[k > 1, k-- ]]; a]; f[EulerGamma] (* Robert G. Wilson v, Nov 01 2004 *)
CROSSREFS
KEYWORD
easy,nonn,base
AUTHOR
Sam Handler (shandler(AT)Macalester.edu), Oct 25 2004
EXTENSIONS
Corrected and extended by Robert G. Wilson v, Nov 01 2004
STATUS
approved