# Greetings from The On-Line Encyclopedia of Integer Sequences! http://oeis.org/

Search: id:a244682
Showing 1-1 of 1

%I A244682 #6 Jul 05 2014 17:02:21
%S A244682 1,1,6,7,1,8,2,2,5,4,5,8,8,9,0,1,7,2,5,1,2,3,2,2,5,7,9,3,6,3,8,4,5,2,
%T A244682 8,5,2,4,0,6,7,9,3,7,0,6,7,9,1,6,0,0,6,2,4,1,2,0,9,4,3,4,1,9,1,5,6,7,
%U A244682 0,4,7,8,9,2,3,0,0,7,6,7,2,3,2,2,8,5,5,2,9,5,8,8,8,8,7,1,1,1,9,6,4,4,9,1,1
%N A244682 The spiral of Champernowne read by the North-Northwest ray.
%F A244682 See A244677 formula section.
%e A244682 See A244677 for the spiral of David Gawen Champernowne.
%t A244682 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 - 33n + 18 (* see A244677 formula section *); Array[ almostNatural[ f@#, 10] &, 105]
%Y A244682 Cf. A033307, A033952, A143860, A244677-A244688, A244690-A244692.
%K A244682 nonn,easy
%O A244682 1,3
%A A244682 _Robert G. Wilson v_, Jul 04 2014

# Content is available under The OEIS End-User License Agreement: http://oeis.org/LICENSE