%I #4 Jun 29 2014 22:29:47
%S 1,1,1,0,0,1,0,1,1,0,1,0,1,1,1,1,1,0,1,0,1,1,1,1,1,0,0,0,0,1,0,0,0,1,
%T 1,1,0,0,0,1,1,0,0,1,1,0,0,1,0,1,0,0,1,1,1,1,0,1,0,1,1,0,1,1,1,0,0,1,
%U 0,0,1,0,1,1,0,1,1,0,0,1,0,0,1,0,1,1,0,1,1,1,0,1,1,0,1,1,1,1,1,1,1,1,0,1,1
%N Bisection of A030190 or of A030302.
%t Transpose[ Partition[ Flatten[ IntegerDigits[Range@45, 2]], 2]][[2]] (* or *)
%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]]]; Table[almostNatural[n, 2], {n, 2, 210, 2}]
%Y Cf. A030190, A030302, A007376, A033307, A127050, A127353, A244527.
%K nonn,base,easy
%O 1
%A _Robert G. Wilson v_, Jun 29 2014
|