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 A242729 #6 May 21 2014 20:18:25 %S A242729 3,1,6,6,8,4,1,7,3,6,5,2,7,0,5,8,2,0,2,1,8,3,5,6,5,7,2,3,0,8,2,8,8,3, %T A242729 2,9,6,4,6,6,7,9,9,5,4,3,9,1,7,0,8,3,4,4,6,0,2,2,0,0,5,6,8,8,2,0,2,0, %U A242729 0,1,4,0,2,1,2,6,1,4,6,8,2,5,6,5,6,5,0,1,7,8,9,8,2,5,5,0,4,0,0,4 %N A242729 Decimal expansion of the Atkinson-Negro-Santoro constant, a constant associated with Erdős' sum-distinct set constant. %D A242729 Steven R. Finch, Mathematical Constants, Cambridge University Press, 2003, Section 2.28, p. 189. %H A242729 W. F. Lunnon, <a href="http://dx.doi.org/10.1090/S0025-5718-1988-0917837-5">Integer sets with distinct subset-sums</a>, Math. Comp. 50 (1988), 297-320. %e A242729 0.3166841736527058202183565723... %t A242729 digits = 100; Clear[u, s]; u[n_] := u[n] = 2 u[n-1] - u[n-1 - Floor[(n-1)/2 + 1]]; u[0] = 0; u[1] = 1; s[k_] := s[k] = u[k]/2^k // N[#, digits + 5] &; s[dk = 100]; s[k = 2*dk]; While[RealDigits[s[k], 10, digits] != RealDigits[s[k - dk], 10, digits], Print["k = ", k]; k = k + dk]; RealDigits[s[k], 10, digits] // First %Y A242729 Cf. A002083, A005255. %K A242729 nonn,cons %O A242729 0,1 %A A242729 _Jean-François Alcover_, May 21 2014