A098967 Write down decimal expansion of Euler-Mascheroni constant gamma (A001620); divide up into chunks of minimal length so that chunks are increasing numbers and do not begin with 0.

5, 7, 72, 156, 649, 1532, 8606, 65120, 90082, 402431, 421593, 3593992, 3598805, 7672348, 8486772, 67776646, 70936947, 632917467, 4951463144, 7249807082, 48096050401, 448654283622, 4173997644923, 5362535003337, 42937337737673

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

Cf. A001620, A002852, A059856, A033091.

Sequence in context: A308848 A109715 A128465 * A107140 A141746 A067198

Adjacent sequences: A098964 A098965 A098966 * A098968 A098969 A098970

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