A100751 Concatenate all natural numbers starting with 1 in binary like this 11011100101110111100010011010..., then a(n) = the number formed from the next n digits (by dropping leading zeros). 1, 10, 111, 0010, 11101, 111000, ... 1, 10, 111, 10, 11101, 111000, ...

1, 10, 111, 10, 11101, 111000, 1001101, 1011110, 11011110, 1111100001, 11001010, 11101001010, 1101101011111, 11001110101, 101111100111011, 1110111111000001, 1100010100011, 100100100101100110, 1001111010001010011

Offset

1,2

Links

John Cerkan, Table of n, a(n) for n = 1..996

Example

1, 10, 111, 0010, 11101, 111000, ... becomes
1, 10, 111, 10, 11101, 111000, ...

Mathematica

d = Flatten[ Table[ IntegerDigits[n, 2], {n, 45}]]; Table[ FromDigits[ Take[d, {n(n + 1)/2 + 1, (n + 1)(n + 2)/2}]], {n, 0, 18}] (* Robert G. Wilson v, Nov 22 2004 *)
Module[{nn=50, b, x}, b=Flatten[IntegerDigits[Range[nn], 2]]; x = Floor[ (Sqrt[1+8 Length[ b]]-1)/2]; FromDigits[#]&/@TakeList[b, Range[x]]] (* Requires Mathematica version 11 or later *) (* Harvey P. Dale, Jan 21 2021 *)

Crossrefs

Cf. A066547, A100489.

Sequence in context: A281895 A282104 A282258 * A282452 A282653 A282801

Adjacent sequences: A100748 A100749 A100750 * A100752 A100753 A100754

Keyword

base,easy,nonn

Author

Amarnath Murthy, Nov 20 2004

Extensions

More terms from Robert G. Wilson v, Nov 22 2004

Status

approved