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.

Previous Showing 11-15 of 15 results.

A370641 Number of maximal subsets of {1..n} containing n such that it is possible to choose a different binary index of each element.

Original entry on oeis.org

0, 1, 1, 2, 3, 5, 9, 15, 32, 45, 67, 98, 141, 197, 263, 358, 1201, 1493, 1920, 2482, 3123, 3967, 4884, 6137, 7584, 9369, 11169, 13664, 15818, 19152, 22418, 26905, 151286, 173409, 202171, 237572, 273651, 320040, 367792, 428747, 485697, 562620, 637043, 734738, 815492
Offset: 0

Views

Author

Gus Wiseman, Mar 11 2024

Keywords

Comments

A binary index of n is any position of a 1 in its reversed binary expansion. The binary indices of n are row n of A048793.
Also choices of A070939(n) elements of {1..n} containing n such that it is possible to choose a different binary index of each.

Examples

			The a(0) = 0 through a(7) = 15 subsets:
  .  {1}  {1,2}  {1,3}  {1,2,4}  {1,2,5}  {1,2,6}  {1,2,7}
                 {2,3}  {1,3,4}  {1,3,5}  {1,3,6}  {1,3,7}
                        {2,3,4}  {2,3,5}  {1,4,6}  {1,4,7}
                                 {2,4,5}  {1,5,6}  {1,5,7}
                                 {3,4,5}  {2,3,6}  {1,6,7}
                                          {2,5,6}  {2,3,7}
                                          {3,4,6}  {2,4,7}
                                          {3,5,6}  {2,5,7}
                                          {4,5,6}  {2,6,7}
                                                   {3,4,7}
                                                   {3,5,7}
                                                   {3,6,7}
                                                   {4,5,7}
                                                   {4,6,7}
                                                   {5,6,7}
		

Crossrefs

A version for set-systems is A368601.
For prime indices we have A370590, without n A370585, see also A370591.
This is the maximal case of A370636 requiring n, complement A370637.
This is the maximal case of A370639, complement A370589.
Without requiring n we have A370640.
Dominated by A370819.
A048793 lists binary indices, A000120 length, A272020 reverse, A029931 sum.
A058891 counts set-systems, A003465 covering, A323818 connected.
A070939 gives length of binary expansion.
A096111 gives product of binary indices.
A367902 counts choosable set-systems, ranks A367906, unlabeled A368095.
A367903 counts non-choosable set-systems, ranks A367907, unlabeled A368094.

Programs

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

Extensions

More terms from Jinyuan Wang, Mar 28 2025

A370815 Number of integer factorizations of n into unordered factors > 1, such that only one set can be obtained by choosing a different divisor of each factor.

Original entry on oeis.org

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

Views

Author

Gus Wiseman, Mar 06 2024

Keywords

Examples

			The a(432) = 3 factorizations: (2*2*3*4*9), (2*3*3*4*6), (2*6*6*6).
		

Crossrefs

For partitions and prime factors we have A370594, ranks A370647.
Partitions of this type are counted by A370595, ranks A370810.
For prime factors we have A370645, subsets A370584.
A000005 counts divisors.
A001055 counts factorizations, strict A045778.
A239312 counts condensed partitions, ranks A355740, complement A370320.
A355731 counts choices of a divisor of each prime index, firsts A355732.
A368414 counts factor-choosable factorizations, complement A368413.
A370814 counts divisor-choosable factorizations, complement A370813.

Programs

  • Mathematica
    facs[n_]:=If[n<=1,{{}},Join@@Table[Map[Prepend[#,d]&, Select[facs[n/d],Min@@#>=d&]],{d,Rest[Divisors[n]]}]];
    Table[Length[Select[facs[n],Length[Union[Sort /@ Select[Tuples[Divisors/@#],UnsameQ@@#&]]]==1&]],{n,100}]

A370588 Number of subsets of {1..n} containing n such that only one set can be obtained by choosing a different prime factor of each element.

Original entry on oeis.org

0, 0, 1, 2, 2, 6, 6, 18, 12, 20, 36, 104, 76, 284, 320, 408, 252, 1548, 872, 3968, 2800, 4704, 8568, 24008, 10832, 14832, 40688, 18240, 43632, 176240, 97344, 449824, 95328, 404992, 760752, 698864, 436464, 3296048, 3564576, 4057904, 2677776, 16892352, 8676576
Offset: 0

Views

Author

Gus Wiseman, Feb 28 2024

Keywords

Comments

For example, the only choice of a different prime factor of each element of (4,5,6) is (2,5,3), so {4,5,6} is counted under a(6).

Examples

			The a(0) = 0 through a(8) = 12 subsets:
  .  .  {2}  {3}    {4}    {5}      {2,6}    {7}        {8}
             {2,3}  {3,4}  {2,5}    {3,6}    {2,7}      {3,8}
                           {3,5}    {4,6}    {3,7}      {5,8}
                           {4,5}    {2,5,6}  {4,7}      {6,8}
                           {2,3,5}  {3,5,6}  {5,7}      {7,8}
                           {3,4,5}  {4,5,6}  {2,3,7}    {3,5,8}
                                             {2,5,7}    {3,7,8}
                                             {2,6,7}    {5,6,8}
                                             {3,4,7}    {5,7,8}
                                             {3,5,7}    {6,7,8}
                                             {3,6,7}    {3,5,7,8}
                                             {4,5,7}    {5,6,7,8}
                                             {4,6,7}
                                             {2,3,5,7}
                                             {2,5,6,7}
                                             {3,4,5,7}
                                             {3,5,6,7}
                                             {4,5,6,7}
		

Crossrefs

First differences of A370584, cf. A370582, complement A370583.
For any number of choices we have A370586, complement A370587.
For binary indices see A370638, A370639, complement A370589.
A006530 gives greatest prime factor, least A020639.
A027746 lists prime factors, indices A112798, length A001222.
A355741 counts choices of a prime factor of each prime index.
A367902 counts choosable set-systems, ranks A367906, unlabeled A368095.
A367903 counts non-choosable set-systems, ranks A367907, unlabeled A368094.
A368098 counts choosable unlabeled multiset partitions, complement A368097.
A368100 ranks choosable multisets, complement A355529.
A368414 counts choosable factorizations, complement A368413.
A370585 counts maximal choosable sets.
A370592 counts choosable partitions, complement A370593.
A370636 counts choosable subsets for binary indices, complement A370637.

Programs

  • Mathematica
    Table[Length[Select[Subsets[Range[n]],MemberQ[#,n] && Length[Select[Tuples[If[#==1,{},First/@FactorInteger[#]]&/@#], UnsameQ@@#&]]==1&]],{n,0,10}]

Extensions

More terms from Jinyuan Wang, Mar 28 2025

A370646 Number of non-isomorphic multiset partitions of weight n such that only one set can be obtained by choosing a different element of each block.

Original entry on oeis.org

1, 1, 2, 4, 10, 23, 62, 165, 475, 1400, 4334
Offset: 0

Views

Author

Gus Wiseman, Mar 12 2024

Keywords

Comments

A multiset partition is a finite multiset of finite nonempty multisets. The weight of a multiset partition is the sum of cardinalities of its elements.

Examples

			The multiset partition {{3},{1,3},{2,3}} has unique choice (3,1,2) so is counted under a(5).
Representatives of the a(1) = 1 through a(5) = 23 multiset partitions:
  {1}  {11}    {111}      {1111}        {11111}
       {1}{2}  {1}{22}    {1}{122}      {11}{122}
               {2}{12}    {11}{22}      {1}{1222}
               {1}{2}{3}  {12}{12}      {11}{222}
                          {1}{222}      {12}{122}
                          {12}{22}      {1}{2222}
                          {2}{122}      {12}{222}
                          {1}{2}{33}    {2}{1122}
                          {1}{3}{23}    {2}{1222}
                          {1}{2}{3}{4}  {22}{122}
                                        {1}{2}{233}
                                        {1}{22}{33}
                                        {1}{23}{23}
                                        {1}{2}{333}
                                        {1}{23}{33}
                                        {1}{3}{233}
                                        {2}{12}{33}
                                        {2}{13}{23}
                                        {2}{3}{123}
                                        {3}{13}{23}
                                        {1}{2}{3}{44}
                                        {1}{2}{4}{34}
                                        {1}{2}{3}{4}{5}
		

Crossrefs

For existence we have A368098, complement A368097.
Multisets of this type are ranked by A368101, see also A368100, A355529.
Subsets of this type are counted by A370584, see also A370582, A370583.
Maximal sets of this type are counted by A370585.
Partitions of this type are counted by A370594, see also A370592, A370593.
Subsets of this type are also counted by A370638, see also A370636, A370637.
Factorizations of this type are A370645, see also A368414, A368413.
Set-systems of this type are A370818, see also A367902, A367903.
A000110 counts set partitions, non-isomorphic A000041.
A001055 counts factorizations, strict A045778.
A007716 counts non-isomorphic multiset partitions, connected A007718.

A370818 Number of sets of nonempty subsets of {1..n} with only one possible way to choose a set of different vertices of each edge.

Original entry on oeis.org

1, 2, 6, 45, 1352, 157647, 63380093, 85147722812, 385321270991130
Offset: 0

Views

Author

Gus Wiseman, Mar 12 2024

Keywords

Examples

			The set-system {{2},{1,2},{2,4},{1,3,4}} has unique choice (2,1,4,3) so is counted under a(4).
		

Crossrefs

This is the unique version of A367902, complement A367903.
Choosing a sequence gives A367904, ranks A367908.
The maximal case is A368601, complement A368600.
This is the restriction of A370638 to A000225.
Factorizations of this type are counted by A370645.
A048793 lists binary indices, A000120 length, A272020 reverse, A029931 sum.
A058891 counts set-systems, A003465 covering, A323818 connected.
A070939 gives length of binary expansion.
A096111 gives product of binary indices.

Programs

  • Mathematica
    Table[Length[Select[Subsets[Subsets[Range[n]]], Length[Union[Sort/@Select[Tuples[#],UnsameQ@@#&]]]==1&]],{n,0,3}]

Formula

a(n) = A370638(2^n - 1).
Binomial transform of A368601. - Christian Sievers, Aug 12 2024

Extensions

a(5)-a(8) from Christian Sievers, Aug 12 2024
Previous Showing 11-15 of 15 results.