The OEIS is supported by the many generous donors to the OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 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, ... 3
 1, 10, 111, 10, 11101, 111000, 1001101, 1011110, 11011110, 1111100001, 11001010, 11101001010, 1101101011111, 11001110101, 101111100111011, 1110111111000001, 1100010100011, 100100100101100110, 1001111010001010011 (list; graph; refs; listen; history; text; internal format)
 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

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified February 3 17:00 EST 2023. Contains 360044 sequences. (Running on oeis4.)