login
A244692
The spiral of Champernowne read by the East-Southeast ray.
14
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
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]
KEYWORD
nonn,easy
AUTHOR
Robert G. Wilson v, Jul 04 2014
STATUS
approved