A244527 Bisection of A030190 or of A030302.

1, 0, 1, 0, 1, 1, 1, 1, 1, 0, 0, 0, 1, 0, 0, 0, 1, 1, 0, 1, 1, 1, 0, 1, 1, 0, 0, 1, 0, 1, 0, 1, 1, 0, 1, 0, 0, 1, 1, 1, 0, 1, 1, 1, 1, 1, 0, 1, 0, 1, 1, 1, 1, 0, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 1, 0, 0, 1, 1, 0, 1, 0, 0, 1, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 1, 0, 0

Offset

1

Links

Table of n, a(n) for n=1..105.

Mathematica

 Transpose[ Partition[ Flatten[ IntegerDigits[Range@45, 2]], 2]][[1]] (* or *)
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, 1, 210, 2}]

Crossrefs

Cf. A030190, A030302, A007376, A033307, A127050, A127353, A244528.

Sequence in context: A267129 A267848 A267179 * A243566 A266112 A331990

Adjacent sequences: A244524 A244525 A244526 * A244528 A244529 A244530

Keyword

nonn,base,easy

Author

Robert G. Wilson v, Jun 29 2014

Status

approved