|
Search: id:A098967
|
|
|
| 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. |
|
+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; listen)
|
|
|
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 this_sequence A107140 A141746 A067198
Adjacent sequences: A098964 A098965 A098966 this_sequence 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
|
|
|
Search completed in 0.002 seconds
|
