A244686 The spiral of Champernowne read by the West-Southwest ray.

1, 1, 0, 8, 2, 7, 2, 0, 8, 4, 8, 9, 8, 5, 0, 1, 3, 4, 5, 1, 2, 5, 2, 2, 9, 9, 0, 3, 4, 6, 9, 4, 7, 5, 9, 5, 8, 8, 0, 6, 7, 3, 3, 7, 4, 1, 7, 9, 9, 1, 0, 1, 0, 2, 5, 1, 1, 2, 1, 6, 3, 1, 4, 0, 7, 5, 1, 6, 9, 8, 7, 1, 8, 8, 9, 0, 2, 1, 7, 0, 2, 2, 3, 6, 1, 5, 2, 6, 5, 2, 8, 2, 9, 4, 3, 1, 3, 2, 3, 4, 4, 3, 5, 2, 5

Offset: 1

Author

Robert G. Wilson v, Jul 04 2014

Keywords

• nonn
• easy

Examples

			See A244677 for the spiral of David Gawen Champernowne.
		

Crossrefs

Cf. A033307, A143854, 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 - 29n + 14 (* see A244677 formula section *); Array[ almostNatural[ f@#, 10] &, 105]

Formula

See A244677 formula section.