|
| |
|
|
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.
|
|
3
| |
|
|
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; internal format)
|
|
|
|
OFFSET
| 0,1
|
|
|
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] (from Robert G. Wilson v Nov 01 2004)
|
|
|
CROSSREFS
| Cf. A001620, A002852, A059856, A033091.
Sequence in context: A025546 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 (rgwv(AT)rgwv.com), Nov 01 2004
|
| |
|
|
