A244685 The spiral of Champernowne read by the West ray.

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

Offset

1,2

Links

Table of n, a(n) for n=1..105.

Formula

See A244677 formula section.

Example

See A244677 for the spiral of David Gawen Champernowne.

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_] := 4n^2 - 7n + 4 (* see A244677 formula section *); Array[ almostNatural[ f@#, 10] &, 105]

Crossrefs

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

Sequence in context: A086036 A345644 A019849 * A118421 A158233 A093604

Adjacent sequences: A244682 A244683 A244684 * A244686 A244687 A244688

Keyword

nonn,easy

Author

Robert G. Wilson v, Jul 04 2014

Status

approved