A244683 The spiral of Champernowne read by the Northwest ray.

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

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 - 8n + 5 (* see A244677 formula section *); Array[ almostNatural[ f@#, 10] &, 105]

Crossrefs

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

Sequence in context: A120275 A021656 A337571 * A263157 A084538 A263492

Adjacent sequences: A244680 A244681 A244682 * A244684 A244685 A244686

Keyword

nonn,easy

Author

Robert G. Wilson v, Jul 04 2014

Status

approved