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

Search: id:a342753
Showing 1-1 of 1

%I A342753 #12 Jun 04 2021 09:50:13
%S A342753 0,0,0,1,0,0,0,0,1,1,0,0,0,0,0,0,0,1,1,0,0,0,1,0,0,0,0,0,0,1,1,0,0,0,
%T A342753 1,0,1,0,0,1,0,0,0,0,0,1,0,0,0,0,0,0,0,1,0,1,0,1,1,0,0,0,0,1,1,1,0,0,
%U A342753 0,1,0,0,0,1,0,0,0,1,0,0,0,0,0,0,0,1
%N A342753 Concatenation of all 01-words, in the order induced by A001651; see Comments.
%C A342753 Let s = (s(n)) be a strictly increasing sequence of positive integers with infinite complement, t = (t(n)).
%C A342753 For n >=1, let s'(n) be the number of s(i) that are <= n-1 and let t'(n) be the number of t(i) that are <= n-1.
%C A342753 Define w(1) = 0, w(t(1)) = 1, and w(n) = 0w(s'(n)) if n is in s, and w(n) = 1w(t'(n)) if n is in t. Then (w(n)) is the "s-induced ordering" of all 01-words.
%C A342753 s = A001651; t = A008585; s' = A004523; t' = A002264;
%C A342753 In the following list, W represents the sequence of words w(n) induced by  A001651. The list includes five partitions and two permutations of the positive integers.
%C A342753 positions of 1-free words in W: A006999;
%C A342753 positions of 0-free words in W: A029858;
%C A342753 length of w(n): A342774;
%C A342753 positions in W of words w(n) such that # 0's = # 1's: A342775;
%C A342753 positions in W of words w(n) such that # 0's < # 1's: A342776;
%C A342753 positions in W of words w(n) such that # 0's > # 1's: A342777;
%C A342753 positions in W of words having last digit 0: A342778;
%C A342753 positions in W of words having last digit 1: A342779;
%C A342753 positions in W of words w(n) such that first digit = last digit: A342780;
%C A342753 positions in W of words w(n) such that first digit != last digit: A342781;
%C A342753 positions in W of words w(n) such that 1st digit  = 0 and last digit 0: A342748;
%C A342753 positions in W of words w(n) such that 1st digit  = 0 and last digit 1: A342783;
%C A342753 positions in W of words w(n) such that 1st digit  = 1 and last digit 0: A342784;
%C A342753 positions in W of words w(n) such that 1st digit  = 1 and last digit 1: A342785;
%C A342753 position in W of n-th positive integer (base 2):  A342786;
%C A342753 positions in W of binary complement of w(n):  A342787;
%C A342753 sum of digits in w(n): A342788;
%C A342753 number of runs in w(n): A342789;
%C A342753 positions in W of palindromes: A342790;
%C A342753 positions in W of words such that #0's - #1's is odd: A342791;
%C A342753 positions in W of words such that #0's - #1's is even: A342792.
%C A342753 position in W of the reversal of the n-th word in A342798.
%C A342753 For a guide to related sequences, see A341256.
%e A342753 The first 16 words w(n): 0, 00, 1, 000, 01, 10, 0000, 001, 100, 010, 00000, 11, 0001, 0100, 1000, 0010.
%t A342753 z = 100; s = Table[Floor[(3 n - 1)/2], {n, 1, z}]; (* A001651 *)
%t A342753 t = Complement[Range[Max[s]], s]; (* A008585 *)
%t A342753 s1[n_] := Length[Intersection[Range[n - 1], s]];
%t A342753 t1[n_] := n - 1 - s1[n];
%t A342753 Table[s1[n], {n, 1, z}]; (* A004523 *)
%t A342753 Table[t1[n], {n, 1, z}]; (* A002264 *)
%t A342753 w[1] = {0}; w[t[[1]]] = {1};
%t A342753 w[n_] := If[MemberQ[s, n], Join[{0}, w[s1[n]]], Join[{1}, w[t1[n]]]];
%t A342753 tt = Table[w[n], {n, 1, z}] (* A342753, words *)
%t A342753 Flatten[tt] (* A342753, concatenated *)
%t A342753 Map[Length, tt] (* A342774 *)
%t A342753 Flatten[Position[Map[Union, tt], {0}]]; (* A006999 *)
%t A342753 Flatten[Position[Map[Union, tt], {1}]];  (* A029858 *)
%t A342753 zz = Range[Length[tt]];
%t A342753 Select[zz, Count[tt[[#]], 0] == Count[tt[[#]], 1] &] (* A342775 *)
%t A342753 Select[zz, Count[tt[[#]], 0] < Count[tt[[#]], 1] &] (* A342776 *)
%t A342753 Select[zz, Count[tt[[#]], 0] > Count[tt[[#]], 1] &] (* A342777 *)
%t A342753 Select[zz, Last[tt[[#]]] == 0 &]  (* A342778 *)
%t A342753 Select[zz, Last[tt[[#]]] == 1 &]  (* A342779 *)
%t A342753 Select[zz, First[tt[[#]]] == Last[tt[[#]]] &] (* A342780 *)
%t A342753 Select[zz, First[tt[[#]]] != Last[tt[[#]]] &]  (* A342781 *)
%t A342753 Select[zz, First[tt[[#]]] == 0 && Last[tt[[#]]] == 0 &] (* A342782 *)
%t A342753 Select[zz, First[tt[[#]]] == 0 && Last[tt[[#]]] == 1 &] (* A342783 *)
%t A342753 Select[zz, First[tt[[#]]] == 1 && Last[tt[[#]]] == 0 &] (* A342784 *)
%t A342753 Select[zz, First[tt[[#]]] == 1 && Last[tt[[#]]] == 1 &] (* A342785 *)
%t A342753 d[n_] := If[First[w[n]] == 1, FromDigits[w[n], 2]];
%t A342753 Flatten[Table[Position[Table[d[n], {n, 1, 200}], n], {n, 1, 200}]] (* A342786 *)
%t A342753 comp = Flatten[Table[Position[tt, 1 - w[n]], {n, 1, 50}]]   (* A342787 *)
%t A342753 Table[Total[w[n]], {n, 1, 100}]  (* A342788 *)
%t A342753 Map[Length, Table[Map[Length, Split[w[n]]], {n, 1, 100}]] (* A342789 *)
%t A342753 Select[zz, tt[[#]] == Reverse[tt[[#]]] &] (* A342790 *)
%t A342753 Select[zz, OddQ[Count[w[#], 0] - Count[w[#], 1]] &] (* A342791 *)
%t A342753 Select[zz, EvenQ[Count[w[#], 0] - Count[w[#], 1]] &] (* A342792 *)
%t A342753 Flatten[Table[Position[tt, Reverse[w[n]]], {n, 1, 150}]];  (* A342798 *)
%Y A342753 Cf. A001651, A341256, A342910.
%K A342753 nonn,base
%O A342753 1
%A A342753 _Clark Kimberling_, Apr 10 2021

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