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

Author

Sam Handler (shandler(AT)Macalester.edu), Oct 25 2004

Keywords

• easy
• nonn
• base

Examples

			0.57721566490153286060651209008240243104215933593992359880576723488...
		

Links

• G. C. Greubel, Table of n, a(n) for n = 0..1500

Crossrefs

Cf. A001620, A002852, A059856, A033091.

Programs

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 *)

Extensions

Corrected and extended by Robert G. Wilson v, Nov 01 2004