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

 

Logo


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.

License Agreements, Terms of Use, Privacy Policy. .

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