A244690 The spiral of Champernowne read by the South-Southeast ray.

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

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

Crossrefs

Cf. A033307, A143839, A033952, A244677-A244688, A244691, A244692.

Sequence in context: A200356 A127734 A154520 * A002390 A193087 A201404

Adjacent sequences: A244687 A244688 A244689 * A244691 A244692 A244693

Keyword

nonn,easy

Author

Robert G. Wilson v, Jul 04 2014

Status

approved