cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

Showing 1-9 of 9 results.

A368109 Number of ways to choose a binary index of each binary index of n.

Original entry on oeis.org

1, 1, 1, 1, 2, 2, 2, 2, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 4, 4, 4, 4, 2, 2, 2, 2, 4, 4, 4, 4, 2, 2, 2, 2, 4, 4, 4, 4, 2, 2, 2, 2, 4, 4, 4, 4, 4, 4, 4, 4, 8, 8, 8, 8, 4, 4, 4, 4, 8, 8, 8, 8, 3, 3, 3, 3, 6, 6, 6, 6, 3, 3, 3, 3, 6, 6, 6, 6, 6, 6, 6, 6, 12, 12, 12
Offset: 0

Views

Author

Gus Wiseman, Dec 12 2023

Keywords

Comments

First differs from A367912 at a(52) = 8, A367912(52) = 7.
A binary index of n (row n of A048793) is any position of a 1 in its reversed binary expansion. For example, 18 has reversed binary expansion (0,1,0,0,1) and binary indices {2,5}.
Run-lengths are all 4 or 8.

Examples

			The binary indices of binary indices of 20 are {{1,2},{1,3}}, with choices (1,1), (1,3), (2,1), (2,3), so a(20) = 4.
The binary indices of binary indices of 52 are {{1,2},{1,3},{2,3}}, with choices (1,1,1), (1,1,3), (1,3,2), (1,3,3), (2,1,2), (2,1,3), (2,3,2), (2,3,3), so a(52) = 8.
		

Crossrefs

All entries appear to belong to A003586.
Positions of ones are A253317.
The version for prime indices is A355741, for multisets A355744.
Choosing a multiset (not sequence) gives A367912, firsts A367913.
Positions of first appearances are A368111, sorted A368112.
A048793 lists binary indices, length A000120, sum A029931.
A058891 counts set-systems, covering A003465, connected A323818.
A070939 gives length of binary expansion.
A096111 gives product of binary indices.

Programs

  • Mathematica
    bpe[n_]:=Join@@Position[Reverse[IntegerDigits[n, 2]],1];
    Table[Length[Tuples[bpe/@bpe[n]]], {n,0,100}]

Formula

a(n) = Product_{k in A048793(n)} A000120(k).

A367912 Number of multisets that can be obtained by choosing a binary index of each binary index of n.

Original entry on oeis.org

1, 1, 1, 1, 2, 2, 2, 2, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 4, 4, 4, 4, 2, 2, 2, 2, 4, 4, 4, 4, 2, 2, 2, 2, 4, 4, 4, 4, 2, 2, 2, 2, 4, 4, 4, 4, 4, 4, 4, 4, 7, 7, 7, 7, 4, 4, 4, 4, 7, 7, 7, 7, 3, 3, 3, 3, 5, 5, 5, 5, 3, 3, 3, 3, 5, 5, 5, 5, 5, 5, 5, 5, 8, 8, 8, 8
Offset: 0

Views

Author

Gus Wiseman, Dec 12 2023

Keywords

Comments

A binary index of n (row n of A048793) is any position of a 1 in its reversed binary expansion. For example, 18 has reversed binary expansion (0,1,0,0,1) and binary indices {2,5}.
The run-lengths are all 4 or 8.

Examples

			The binary indices of binary indices of 52 are {{1,2},{1,3},{2,3}}, with multiset choices {1,1,2}, {1,1,3}, {1,2,2}, {1,2,3}, {1,3,3}, {2,2,3}, {2,3,3}, so a(52) = 7.
		

Crossrefs

Positions of ones are A253317.
The version for multisets and divisors is A355733, for sequences A355731.
The version for multisets is A355744, for sequences A355741.
For a sequence of distinct choices we have A367905, firsts A367910.
Positions of first appearances are A367913, sorted A367915.
Choosing a sequence instead of multiset gives A368109, firsts A368111.
Choosing a set instead of multiset gives A368183, firsts A368184.
A048793 lists binary indices, length A000120, sum A029931.
A058891 counts set-systems, covering A003465, connected A323818.
A070939 gives length of binary expansion.
A096111 gives product of binary indices.

Programs

  • Mathematica
    bpe[n_]:=Join@@Position[Reverse[IntegerDigits[n, 2]],1];
    Table[Length[Union[Sort/@Tuples[bpe/@bpe[n]]]], {n,0,100}]

A367911 Sorted positions of first appearances in A367905.

Original entry on oeis.org

1, 4, 7, 20, 68, 320, 352, 1088, 3136, 5184, 13376, 16704, 17472, 70720, 82240, 83008, 90112, 90176
Offset: 1

Views

Author

Gus Wiseman, Dec 16 2023

Keywords

Comments

A binary index of n (row n of A048793) is any position of a 1 in its reversed binary expansion. For example, 18 has reversed binary expansion (0,1,0,0,1) and binary indices {2,5}.

Examples

			The terms together with the corresponding set-systems begin:
      1: {{1}}
      4: {{1,2}}
      7: {{1},{2},{1,2}}
     20: {{1,2},{1,3}}
     68: {{1,2},{1,2,3}}
    320: {{1,2,3},{1,4}}
    352: {{2,3},{1,2,3},{1,4}}
   1088: {{1,2,3},{1,2,4}}
   3136: {{1,2,3},{1,2,4},{3,4}}
   5184: {{1,2,3},{1,2,4},{1,3,4}}
  13376: {{1,2,3},{1,2,4},{1,3,4},{2,3,4}}
  16704: {{1,2,3},{1,4},{1,2,3,4}}
  17472: {{1,2,3},{1,2,4},{1,2,3,4}}
  70720: {{1,2,3},{1,2,4},{1,3,4},{1,5}}
  82240: {{1,2,3},{1,4},{1,2,3,4},{1,5}}
		

Crossrefs

Sorted positions of first appearances in A367905.
The unsorted version is A367910.
Multisets without distinctness are A367915, unsorted A367913.
Without distinctness we have A368112, unsorted A368111.
For sets instead of sequences we have A368185, unsorted A368184.
A048793 lists binary indices, length A000120, sum A029931.
A058891 counts set-systems, covering A003465, connected A323818.
A070939 gives length of binary expansion.
A096111 gives product of binary indices.

Programs

  • Mathematica
    bpe[n_]:=Join@@Position[Reverse[IntegerDigits[n,2]],1];
    c=Table[Length[Select[Tuples[bpe/@bpe[n]],UnsameQ@@#&]],{n,1000}];
    Select[Range[Length[c]],FreeQ[Take[c,#-1],c[[#]]]&]

A367910 Least number k such that there are exactly n ways to choose a different binary index of each binary index of k.

Original entry on oeis.org

7, 1, 4, 20, 68, 320, 352, 1088, 3136, 13376, 16704, 5184, 82240, 70720, 17472
Offset: 0

Views

Author

Gus Wiseman, Dec 16 2023

Keywords

Comments

A binary index of n (row n of A048793) is any position of a 1 in its reversed binary expansion. For example, 18 has reversed binary expansion (0,1,0,0,1) and binary indices {2,5}.

Examples

			The terms together with the corresponding set-systems begin:
      7: {{1},{2},{1,2}}
      1: {{1}}
      4: {{1,2}}
     20: {{1,2},{1,3}}
     68: {{1,2},{1,2,3}}
    320: {{1,2,3},{1,4}}
    352: {{2,3},{1,2,3},{1,4}}
   1088: {{1,2,3},{1,2,4}}
   3136: {{1,2,3},{1,2,4},{3,4}}
  13376: {{1,2,3},{1,2,4},{1,3,4},{2,3,4}}
  16704: {{1,2,3},{1,4},{1,2,3,4}}
   5184: {{1,2,3},{1,2,4},{1,3,4}}
  82240: {{1,2,3},{1,4},{1,2,3,4},{1,5}}
  70720: {{1,2,3},{1,2,4},{1,3,4},{1,5}}
		

Crossrefs

Positions of first appearances in A367905.
The sorted version is A367911.
For multisets w/o distinctness: A367913, firsts of A367912, sorted A367915.
Not requiring distinctness gives A368111, firsts of A368109, sorted A368112.
For multisets of indices we have A368184, firsts of A368183, sorted A368185.
A048793 lists binary indices, length A000120, sum A029931.
A058891 counts set-systems, covering A003465, connected A323818.
A070939 gives length of binary expansion.
A096111 gives product of binary indices.

Programs

  • Mathematica
    bpe[n_]:=Join@@Position[Reverse[IntegerDigits[n,2]],1];
    c=Table[Length[Select[Tuples[bpe/@bpe[n]],UnsameQ@@#&]],{n,1000}];
    spnm[y_]:=Max@@NestWhile[Most,y,Union[#]!=Range[0,Max@@#]&];
    Table[Position[c,n][[1,1]],{n,0,spnm[c]}]

A367913 Least number k such that there are exactly n ways to choose a multiset consisting of a binary index of each binary index of k.

Original entry on oeis.org

1, 4, 64, 20, 68, 320, 52, 84, 16448, 324, 832, 116, 1104, 308, 816, 340, 836, 848, 1108, 1136, 1360, 3152, 16708, 372, 5188, 5216, 852, 880, 2884, 1364, 13376, 1392, 3184, 3424, 17220, 5204, 5220, 2868, 5728, 884, 19536, 66896, 2900, 1396, 21572, 3188, 3412
Offset: 1

Views

Author

Gus Wiseman, Dec 16 2023

Keywords

Comments

A binary index of n (row n of A048793) is any position of a 1 in its reversed binary expansion. For example, 18 has reversed binary expansion (0,1,0,0,1) and binary indices {2,5}.

Examples

			The terms together with the corresponding set-systems begin:
      1: {{1}}
      4: {{1,2}}
     64: {{1,2,3}}
     20: {{1,2},{1,3}}
     68: {{1,2},{1,2,3}}
    320: {{1,2,3},{1,4}}
     52: {{1,2},{1,3},{2,3}}
     84: {{1,2},{1,3},{1,2,3}}
  16448: {{1,2,3},{1,2,3,4}}
    324: {{1,2},{1,2,3},{1,4}}
    832: {{1,2,3},{1,4},{2,4}}
    116: {{1,2},{1,3},{2,3},{1,2,3}}
		

Crossrefs

A version for multisets and divisors is A355734.
With distinctness we have A367910, firsts of A367905, sorted A367911.
Positions of first appearances in A367912.
The sorted version is A367915.
For sequences we have A368111, firsts of A368109, sorted A368112.
For sets we have A368184, firsts of A368183, sorted A368185.
A048793 lists binary indices, length A000120, sum A029931.
A058891 counts set-systems, covering A003465, connected A323818.
A070939 gives length of binary expansion.
A096111 gives product of binary indices.

Programs

  • Mathematica
    bpe[n_]:=Join@@Position[Reverse[IntegerDigits[n,2]],1];
    spnm[y_]:=Max@@NestWhile[Most,y,Union[#]!=Range[0,Max@@#]&];
    c=Table[Length[Union[Sort/@Tuples[bpe/@bpe[n]]]],{n,1000}];
    Table[Position[c,n][[1,1]],{n,spnm[c]}]

A368112 Sorted positions of first appearances in A368109 (number of ways to choose a binary index of each binary index).

Original entry on oeis.org

1, 4, 20, 52, 64, 68, 84, 116, 308, 372, 820, 884, 1088, 1092, 1108, 1140, 1396, 1908, 2868, 2932, 3956, 5184, 5188, 5204, 5236, 5492, 6004, 8052, 13376, 13380, 13396, 13428, 13684, 14196, 16244, 17204, 17268, 18292, 19252, 19316, 20340, 22388, 24436, 30580
Offset: 1

Views

Author

Gus Wiseman, Dec 17 2023

Keywords

Comments

A binary index of n (row n of A048793) is any position of a 1 in its reversed binary expansion. For example, 18 has reversed binary expansion (0,1,0,0,1) and binary indices {2,5}.

Examples

			The terms together with the corresponding set-systems begin:
    1: {{1}}
    4: {{1,2}}
   20: {{1,2},{1,3}}
   52: {{1,2},{1,3},{2,3}}
   64: {{1,2,3}}
   68: {{1,2},{1,2,3}}
   84: {{1,2},{1,3},{1,2,3}}
  116: {{1,2},{1,3},{2,3},{1,2,3}}
  308: {{1,2},{1,3},{2,3},{1,4}}
  372: {{1,2},{1,3},{2,3},{1,2,3},{1,4}}
  820: {{1,2},{1,3},{2,3},{1,4},{2,4}}
  884: {{1,2},{1,3},{2,3},{1,2,3},{1,4},{2,4}}
		

Crossrefs

For multisets we have A367915, unsorted A367913, firsts A367912.
Sorted positions of first appearances in A368109.
The unsorted version is A368111.
A048793 lists binary indices, length A000120, sum A029931.
A058891 counts set-systems, covering A003465, connected A323818.
A070939 gives length of binary expansion.
A096111 gives product of binary indices.

Programs

  • Mathematica
    bpe[n_]:=Join@@Position[Reverse[IntegerDigits[n,2]],1];
    c=Table[Length[Tuples[bpe/@bpe[n]]], {n,1000}];
    Select[Range[Length[c]], FreeQ[Take[c,#-1],c[[#]]]&]

A368183 Number of sets that can be obtained by choosing a different binary index of each binary index of n.

Original entry on oeis.org

1, 1, 1, 1, 2, 1, 1, 0, 1, 1, 1, 1, 2, 1, 1, 0, 2, 1, 2, 1, 3, 1, 1, 0, 1, 0, 1, 0, 1, 0, 0, 0, 2, 2, 1, 1, 3, 1, 1, 0, 1, 1, 0, 0, 1, 0, 0, 0, 3, 1, 1, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 3, 2, 2, 1, 3, 1, 1, 0, 2, 1, 1, 0, 1, 0, 0, 0, 3, 1, 1, 0, 1, 0, 0
Offset: 0

Views

Author

Gus Wiseman, Dec 17 2023

Keywords

Comments

A binary index of n (row n of A048793) is any position of a 1 in its reversed binary expansion. For example, 18 has reversed binary expansion (0,1,0,0,1) and binary indices {2,5}.

Examples

			The binary indices of binary indices of 52 are {{1,2},{1,3},{2,3}}, with choices (1,3,2), (2,1,3), both permutations of {1,2,3}, so a(52) = 1.
		

Crossrefs

For sequences we have A367905, firsts A367910, sorted A367911.
Positions of zeros are A367907.
Without distinctness we have A367912, firsts A367913, sorted A367915.
Positions of positive terms are A367906.
For sequences without distinctness: A368109, firsts A368111, sorted A368112.
Positions of first appearances are A368184, sorted A368185.
A048793 lists binary indices, length A000120, sum A029931.
A058891 counts set-systems, covering A003465, connected A323818.
A070939 gives length of binary expansion.
A096111 gives product of binary indices.

Programs

  • Mathematica
    bpe[n_]:=Join@@Position[Reverse[IntegerDigits[n,2]],1];
    Table[Length[Union[Sort/@Select[Tuples[bpe/@bpe[n]],UnsameQ@@#&]]],{n,0,100}]

A368184 Least k such that there are exactly n ways to choose a set consisting of a different binary index of each binary index of k.

Original entry on oeis.org

7, 1, 4, 20, 276, 320, 1088, 65856, 66112, 66624, 263232
Offset: 0

Views

Author

Gus Wiseman, Dec 18 2023

Keywords

Comments

A binary index of n (row n of A048793) is any position of a 1 in its reversed binary expansion. For example, 18 has reversed binary expansion (0,1,0,0,1) and binary indices {2,5}.

Examples

			The terms together with the corresponding set-systems begin:
      7: {{1},{2},{1,2}}
      1: {{1}}
      4: {{1,2}}
     20: {{1,2},{1,3}}
    276: {{1,2},{1,3},{1,4}}
    320: {{1,2,3},{1,4}}
   1088: {{1,2,3},{1,2,4}}
  65856: {{1,2,3},{1,4},{1,5}}
  66112: {{1,2,3},{2,4},{1,5}}
  66624: {{1,2,3},{1,2,4},{1,5}}
		

Crossrefs

For strict sequences: A367910, firsts of A367905, sorted A367911.
For multisets w/o distinctness: A367913, firsts of A367912, sorted A367915.
For sequences w/o distinctness: A368111, firsts of A368109, sorted A368112.
Positions of first appearances in A368183.
The sorted version is A368185.
A048793 lists binary indices, length A000120, sum A029931.
A058891 counts set-systems, covering A003465, connected A323818.
A070939 gives length of binary expansion.
A096111 gives product of binary indices.

Programs

  • Mathematica
    nn=10000;
    bpe[n_]:=Join@@Position[Reverse[IntegerDigits[n,2]],1];
    q=Table[Length[Union[Sort/@Select[Tuples[bpe/@bpe[n]], UnsameQ@@#&]]],{n,nn}];
    k=Max@@Select[Range[Max@@q], SubsetQ[q,Range[#]]&]
    Table[Position[q,n][[1,1]],{n,0,k}]

A368185 Sorted list of positions of first appearances in A368183 (number of sets that can be obtained by choosing a different binary index of each binary index).

Original entry on oeis.org

1, 4, 7, 20, 276, 320, 1088, 65856, 66112, 66624
Offset: 1

Views

Author

Gus Wiseman, Dec 18 2023

Keywords

Comments

A binary index of n (row n of A048793) is any position of a 1 in its reversed binary expansion. For example, 18 has reversed binary expansion (0,1,0,0,1) and binary indices {2,5}.

Examples

			The terms together with the corresponding set-systems begin:
      1: {{1}}
      4: {{1,2}}
      7: {{1},{2},{1,2}}
     20: {{1,2},{1,3}}
    276: {{1,2},{1,3},{1,4}}
    320: {{1,2,3},{1,4}}
   1088: {{1,2,3},{1,2,4}}
  65856: {{1,2,3},{1,4},{1,5}}
  66112: {{1,2,3},{2,4},{1,5}}
  66624: {{1,2,3},{1,2,4},{1,5}}
		

Crossrefs

For sequences we have A367911, unsorted A367910, firsts of A367905.
Multisets w/o distinctness: A367915, unsorted A367913, firsts of A367912.
Sequences w/o distinctness: A368112, unsorted A368111, firsts of A368109.
Sorted list of positions of first appearances in A368183.
The unsorted version is A368184.
A048793 lists binary indices, length A000120, sum A029931.
A058891 counts set-systems, covering A003465, connected A323818.
A070939 gives length of binary expansion.
A096111 gives product of binary indices.

Programs

  • Mathematica
    bpe[n_]:=Join@@Position[Reverse[IntegerDigits[n,2]],1];
    c=Table[Length[Union[Sort/@Select[Tuples[bpe/@bpe[n]], UnsameQ@@#&]]],{n,1000}];
    Select[Range[Length[c]], FreeQ[Take[c,#-1],c[[#]]]&]
Showing 1-9 of 9 results.