This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A098967 #8 Dec 31 2016 13:38:12
%S A098967 5,7,72,156,649,1532,8606,65120,90082,402431,421593,3593992,3598805,
%T A098967 7672348,8486772,67776646,70936947,632917467,4951463144,7249807082,
%U A098967 48096050401,448654283622,4173997644923,5362535003337,42937337737673
%N 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.
%H A098967 G. C. Greubel, <a href="/A098967/b098967.txt">Table of n, a(n) for n = 0..1500</a>
%e A098967 0.57721566490153286060651209008240243104215933593992359880576723488...
%t A098967 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 A098967 Cf. A001620, A002852, A059856, A033091.
%K A098967 easy,nonn,base
%O A098967 0,1
%A A098967 Sam Handler (shandler(AT)Macalester.edu), Oct 25 2004
%E A098967 Corrected and extended by _Robert G. Wilson v_, Nov 01 2004