%I #8 Dec 31 2016 13:38:12
%S 5,7,72,156,649,1532,8606,65120,90082,402431,421593,3593992,3598805,
%T 7672348,8486772,67776646,70936947,632917467,4951463144,7249807082,
%U 48096050401,448654283622,4173997644923,5362535003337,42937337737673
%N 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.
%H G. C. Greubel, <a href="/A098967/b098967.txt">Table of n, a(n) for n = 0..1500</a>
%e 0.57721566490153286060651209008240243104215933593992359880576723488...
%t 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 *)
%Y Cf. A001620, A002852, A059856, A033091.
%K easy,nonn,base
%O 0,1
%A Sam Handler (shandler(AT)Macalester.edu), Oct 25 2004
%E Corrected and extended by _Robert G. Wilson v_, Nov 01 2004