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 A244684 #6 Jul 05 2014 17:03:52 %S A244684 1,1,8,7,3,1,2,0,3,4,3,6,8,2,0,8,5,1,5,2,2,2,2,9,7,2,9,0,0,3,8,2,1,4, %T A244684 9,8,0,5,0,7,7,7,3,8,2,8,7,2,5,9,0,5,8,2,1,1,6,6,9,3,3,4,5,3,5,5,7,6, %U A244684 3,7,7,6,8,8,9,0,2,2,0,2,2,3,7,8,4,5,0,4,2,7,8,3,3,1,0,1,3,3,7,3,4,8,5,9,6 %N A244684 The spiral of Champernowne read by the West-Northwest ray. %F A244684 See A244677 formula section. %e A244684 See A244677 for the spiral of David Gawen Champernowne. %t A244684 almostNatural[n_, b_] := Block[{m = 0, d = n, i = 1, l, p}, While[m <= d, l = m; m = (b - 1) i*b^(i - 1) + l; i++]; i--; p = Mod[d - l, i]; q = Floor[(d - l)/i] + b^(i - 1); If[p != 0, IntegerDigits[q, b][[p]], Mod[q - 1, b]]]; f[n_] := 16n^2 - 31n + 16 (* see A244677 formula section *); Array[ almostNatural[ f@#, 10] &, 105] %Y A244684 Cf. A033307, A143859, A033952, A244677-A244688, A244690-A244692. %K A244684 nonn %O A244684 1,3 %A A244684 _Robert G. Wilson v_, Jul 04 2014