A244684 The spiral of Champernowne read by the West-Northwest ray.

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, 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, 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

Offset: 1

Author

Robert G. Wilson v, Jul 04 2014

Keywords

• nonn

Examples

			See A244677 for the spiral of David Gawen Champernowne.
		

Crossrefs

Cf. A033307, A143859, A033952, A244677-A244688, A244690-A244692.

Programs

Mathematica

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]

Formula

See A244677 formula section.