A244678 The spiral of Champernowne read by the East-Northeast ray.

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

Offset

1,3

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

Crossrefs

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

Sequence in context: A306767 A113814 A059038 * A201319 A110945 A197571

Adjacent sequences: A244675 A244676 A244677 * A244679 A244680 A244681

Keyword

nonn,easy

Author

Robert G. Wilson v, Jul 04 2014

Status

approved