The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 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. 4
 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 (list; graph; refs; listen; history; text; internal format)
 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

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified May 18 10:19 EDT 2021. Contains 343995 sequences. (Running on oeis4.)