A244678 - OEIS

%I #6 Jul 05 2014 16:57:54

%S 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,

%T 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,

%U 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

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

%F See A244677 formula section.

%e See A244677 for the spiral of David Gawen Champernowne.

%t 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]

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

%K nonn,easy

%O 1,3

%A _Robert G. Wilson v_, Jul 04 2014