A244692 The spiral of Champernowne read by the East-Southeast ray.

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

Offset

1,4

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

Crossrefs

Cf. A033307, A143855, A033952, A244677-A244688, A244690, A244691.

Sequence in context: A256853 A349905 A258404 * A248589 A288493 A195293

Adjacent sequences: A244689 A244690 A244691 * A244693 A244694 A244695

Keyword

nonn,easy

Author

Robert G. Wilson v, Jul 04 2014

Status

approved