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-10 of 10 results.

A325118 Heinz numbers of binary carry-connected integer partitions.

Original entry on oeis.org

1, 2, 3, 4, 5, 7, 8, 9, 10, 11, 13, 15, 16, 17, 19, 20, 22, 23, 25, 27, 29, 30, 31, 32, 34, 37, 39, 40, 41, 43, 44, 45, 46, 47, 49, 50, 51, 53, 55, 59, 60, 61, 62, 64, 65, 67, 68, 71, 73, 75, 77, 79, 80, 81, 82, 83, 85, 87, 88, 89, 90, 91, 92, 93, 94, 97, 100
Offset: 1

Views

Author

Gus Wiseman, Mar 28 2019

Keywords

Comments

A binary carry of two positive integers is an overlap of the positions of 1's in their reversed binary expansion. An integer partition is binary carry-connected if the graph whose vertices are the parts and whose edges are binary carries is connected.
The Heinz number of an integer partition (y_1,...,y_k) is prime(y_1) * ... * prime(y_k), so these are numbers whose prime indices are binary carry-connected. A prime index of n is a number m such that prime(m) divides n. The multiset of prime indices of n is row n of A112798.

Examples

			The sequence of terms together with their prime indices begins:
   1: {}
   2: {1}
   3: {2}
   4: {1,1}
   5: {3}
   7: {4}
   8: {1,1,1}
   9: {2,2}
  10: {1,3}
  11: {5}
  13: {6}
  15: {2,3}
  16: {1,1,1,1}
  17: {7}
  19: {8}
  20: {1,1,3}
  22: {1,5}
  23: {9}
  25: {3,3}
  27: {2,2,2}
  29: {10}
		

Crossrefs

Programs

  • Mathematica
    binpos[n_]:=Join@@Position[Reverse[IntegerDigits[n,2]],1];
    csm[s_]:=With[{c=Select[Tuples[Range[Length[s]],2],And[OrderedQ[#],UnsameQ@@#,Length[Intersection@@s[[#]]]>0]&]},If[c=={},s,csm[Sort[Append[Delete[s,List/@c[[1]]],Union@@s[[c[[1]]]]]]]]];
    Select[Range[100],Length[csm[binpos/@PrimePi/@First/@FactorInteger[#]]]<=1&]

A325098 Number of binary carry-connected integer partitions of n.

Original entry on oeis.org

1, 1, 2, 2, 4, 4, 7, 7, 13, 15, 23, 27, 42, 50, 72, 88, 125, 153, 211, 258, 349, 430, 569, 698, 914, 1119, 1444, 1765, 2252, 2745, 3470, 4214, 5276, 6387, 7934, 9568, 11800, 14181, 17379, 20818, 25351, 30264, 36668, 43633, 52589, 62394, 74872, 88576, 105818
Offset: 0

Views

Author

Gus Wiseman, Mar 28 2019

Keywords

Comments

A binary carry of two positive integers is an overlap of the positions of 1's in their reversed binary expansion. An integer partition is binary carry-connected if the graph whose vertices are the parts and whose edges are binary carries is connected.

Examples

			The a(1) = 1 through a(8) = 13 partitions:
  (1)  (2)   (3)    (4)     (5)      (6)       (7)        (8)
       (11)  (111)  (22)    (32)     (33)      (322)      (44)
                    (31)    (311)    (51)      (331)      (53)
                    (1111)  (11111)  (222)     (511)      (62)
                                     (321)     (3211)     (71)
                                     (3111)    (31111)    (332)
                                     (111111)  (1111111)  (2222)
                                                          (3221)
                                                          (3311)
                                                          (5111)
                                                          (32111)
                                                          (311111)
                                                          (11111111)
		

Crossrefs

Programs

  • Maple
    h:= proc(n, s) local i, m; m:= n;
          for i in s do m:= Bits[Or](m, i) od; {m}
        end:
    g:= (n, s)-> (w-> `if`(w={}, s union {n}, s minus w union
                  h(n, w)))(select(x-> Bits[And](n, x)>0, s)):
    b:= proc(n, i, s) option remember; `if`(n=0, `if`(nops(s)>1, 0, 1),
          `if`(i<1, 0, b(n, i-1, s)+ b(n-i, min(i, n-i), g(i, s))))
        end:
    a:= n-> b(n$2, {}):
    seq(a(n), n=0..50);  # Alois P. Heinz, Mar 29 2019
  • Mathematica
    binpos[n_]:=Join@@Position[Reverse[IntegerDigits[n,2]],1];
    csm[s_]:=With[{c=Select[Tuples[Range[Length[s]],2],And[OrderedQ[#],UnsameQ@@#,Length[Intersection@@s[[#]]]>0]&]},If[c=={},s,csm[Sort[Append[Delete[s,List/@c[[1]]],Union@@s[[c[[1]]]]]]]]];
    Table[Length[Select[IntegerPartitions[n],Length[csm[binpos/@#]]<=1&]],{n,0,20}]
    (* Second program: *)
    h[n_, s_] := Module[{i, m = n}, Do[m = BitOr[m, i], {i, s}]; {m}];
    g[n_, s_] := Function[w, If[w == {}, s ~Union~ {n}, (s ~Complement~ w) ~Union~
        h[n, w]]][Select[s, BitAnd[n, #] > 0&]];
    b[n_, i_, s_] := b[n, i, s] = If[n == 0, If[Length[s] > 1, 0, 1],
        If[i < 1, 0, b[n, i - 1, s] + b[n - i, Min[i, n - i], g[i, s]]]];
    a[n_] := b[n, n, {}];
    a /@ Range[0, 50] (* Jean-François Alcover, May 11 2021, after Alois P. Heinz *)

Extensions

a(21)-a(48) from Alois P. Heinz, Mar 29 2019

A325110 Number of strict integer partitions of n with no binary containments.

Original entry on oeis.org

1, 1, 1, 2, 1, 2, 2, 5, 2, 3, 2, 6, 3, 6, 7, 15, 8, 10, 6, 13, 6, 10, 12, 23, 13, 16, 16, 26, 21, 30, 37, 60, 43, 52, 42, 60, 42, 50, 54, 81, 59, 60, 66, 80, 74, 86, 108, 145, 119, 125, 126, 144, 134, 140, 170, 208, 189, 193, 221, 248, 253, 292, 323, 435, 392
Offset: 0

Views

Author

Gus Wiseman, Mar 28 2019

Keywords

Comments

A pair of positive integers is a binary containment if the positions of 1's in the reversed binary expansion of the first are a subset of the positions of 1's in the reversed binary expansion of the second.

Examples

			The a(1) = 1 through a(12) = 3 partitions (A = 10, B = 11, C = 12):
  (1)  (2)  (3)   (4)  (5)   (6)   (7)    (8)   (9)   (A)   (B)    (C)
            (21)       (41)  (42)  (43)   (53)  (63)  (82)  (65)   (84)
                                   (52)         (81)        (83)   (93)
                                   (61)                     (92)
                                   (421)                    (A1)
                                                            (821)
		

Crossrefs

Programs

  • Mathematica
    binpos[n_]:=Join@@Position[Reverse[IntegerDigits[n,2]],1];
    stableQ[u_,Q_]:=!Apply[Or,Outer[#1=!=#2&&Q[#1,#2]&,u,u,1],{0,1}];
    Table[Length[Select[IntegerPartitions[n],UnsameQ@@#&&stableQ[#,SubsetQ[binpos[#1],binpos[#2]]&]&]],{n,0,30}]

A325105 Number of binary carry-connected subsets of {1...n}.

Original entry on oeis.org

1, 2, 3, 7, 8, 20, 48, 112, 113, 325, 777, 1737, 3709, 7741, 15869, 32253, 32254, 96538, 225798, 485702, 1006338, 2049602, 4137346, 8315266, 16697102, 33465934, 67007886, 134100366, 268301518, 536720590, 1073575118, 2147316942, 2147316943, 6441886323
Offset: 0

Views

Author

Gus Wiseman, Mar 28 2019

Keywords

Comments

A binary carry of two positive integers is an overlap of the positions of 1's in their reversed binary expansion. A subset is binary carry-connected if the graph whose vertices are the elements and whose edges are binary carries is connected.

Examples

			The a(0) = 1 through a(4) = 8 subsets:
  {}  {}   {}   {}       {}
      {1}  {1}  {1}      {1}
           {2}  {2}      {2}
                {3}      {3}
                {1,3}    {4}
                {2,3}    {1,3}
                {1,2,3}  {2,3}
                         {1,2,3}
		

Crossrefs

Programs

  • Maple
    h:= proc(n, s) local i, m; m:= n;
          for i in s do m:= Bits[Or](m, i) od; {m}
        end:
    g:= (n, s)-> (w-> `if`(w={}, s union {n}, s minus w union
                  h(n, w)))(select(x-> Bits[And](n, x)>0, s)):
    b:= proc(n, s) option remember; `if`(n=0,
          `if`(nops(s)>1, 0, 1), b(n-1, s)+b(n-1, g(n, s)))
        end:
    a:= n-> b(n, {}):
    seq(a(n), n=0..35);  # Alois P. Heinz, Mar 31 2019
  • Mathematica
    binpos[n_]:=Join@@Position[Reverse[IntegerDigits[n,2]],1];
    csm[s_]:=With[{c=Select[Tuples[Range[Length[s]],2],And[OrderedQ[#],UnsameQ@@#,Length[Intersection@@s[[#]]]>0]&]},If[c=={},s,csm[Sort[Append[Delete[s,List/@c[[1]]],Union@@s[[c[[1]]]]]]]]];
    Table[Length[Select[Subsets[Range[n]],Length[csm[binpos/@#]]<=1&]],{n,0,10}]

Formula

a(n) = A306297(n,0) + A306297(n,1). - Alois P. Heinz, Mar 31 2019

Extensions

a(16)-a(33) from Alois P. Heinz, Mar 31 2019

A325099 Number of binary carry-connected strict integer partitions of n.

Original entry on oeis.org

1, 1, 1, 1, 2, 2, 3, 1, 4, 5, 8, 6, 11, 11, 15, 13, 18, 20, 30, 29, 43, 49, 68, 66, 84, 94, 125, 131, 165, 184, 237, 251, 291, 315, 383, 408, 486, 536, 663, 714, 832, 912, 1104, 1195, 1405, 1554, 1877, 2046, 2348, 2559, 2998, 3256, 3730, 4084, 4793, 5230, 5938
Offset: 0

Views

Author

Gus Wiseman, Mar 28 2019

Keywords

Comments

A binary carry of two positive integers is an overlap of the positions of 1's in their reversed binary expansion. An integer partition is binary carry-connected if the graph whose vertices are the parts and whose edges are binary carries is connected.

Examples

			The a(1) = 1 through a(11) = 6 strict partitions (A = 10, B = 11):
  (1)  (2)  (3)  (4)   (5)   (6)    (7)  (8)   (9)    (A)    (B)
                 (31)  (32)  (51)        (53)  (54)   (64)   (65)
                             (321)       (62)  (63)   (73)   (74)
                                         (71)  (72)   (91)   (632)
                                               (531)  (532)  (731)
                                                      (541)  (5321)
                                                      (631)
                                                      (721)
		

Crossrefs

Programs

  • Mathematica
    binpos[n_]:=Join@@Position[Reverse[IntegerDigits[n,2]],1];
    csm[s_]:=With[{c=Select[Tuples[Range[Length[s]],2],And[OrderedQ[#],UnsameQ@@#,Length[Intersection@@s[[#]]]>0]&]},If[c=={},s,csm[Sort[Append[Delete[s,List/@c[[1]]],Union@@s[[c[[1]]]]]]]]];
    Table[Length[Select[IntegerPartitions[n],UnsameQ@@#&&Length[csm[binpos/@#]]<=1&]],{n,0,30}]

A325100 Heinz numbers of strict integer partitions with no binary carries.

Original entry on oeis.org

1, 2, 3, 5, 6, 7, 11, 13, 14, 17, 19, 21, 23, 26, 29, 31, 33, 35, 37, 38, 41, 42, 43, 47, 53, 57, 58, 59, 61, 67, 69, 71, 73, 74, 79, 83, 86, 89, 95, 97, 101, 103, 106, 107, 109, 111, 113, 114, 122, 123, 127, 131, 133, 137, 139, 142, 149, 151, 157, 158, 159
Offset: 1

Views

Author

Gus Wiseman, Mar 28 2019

Keywords

Comments

A binary carry of two positive integers is an overlap of the positions of 1's in their reversed binary expansion.
The Heinz number of an integer partition (y_1,...,y_k) is prime(y_1) * ... * prime(y_k), so these are squarefree numbers whose prime indices have no carries. A prime index of n is a number m such that prime(m) divides n. The multiset of prime indices of n is row n of A112798.

Examples

			The sequence of terms together with their prime indices begins:
   1: {}
   2: {1}
   3: {2}
   5: {3}
   6: {1,2}
   7: {4}
  11: {5}
  13: {6}
  14: {1,4}
  17: {7}
  19: {8}
  21: {2,4}
  23: {9}
  26: {1,6}
  29: {10}
  31: {11}
  33: {2,5}
  35: {3,4}
  37: {12}
  38: {1,8}
  41: {13}
  42: {1,2,4}
		

Crossrefs

Programs

  • Mathematica
    binpos[n_]:=Join@@Position[Reverse[IntegerDigits[n,2]],1];
    stableQ[u_,Q_]:=!Apply[Or,Outer[#1=!=#2&&Q[#1,#2]&,u,u,1],{0,1}];
    Select[Range[100],SquareFreeQ[#]&&stableQ[PrimePi/@First/@FactorInteger[#],Intersection[binpos[#1],binpos[#2]]!={}&]&]

A371445 Numbers whose distinct prime indices are binary carry-connected and have no binary containments.

Original entry on oeis.org

2, 3, 4, 5, 7, 8, 9, 11, 13, 16, 17, 19, 23, 25, 27, 29, 31, 32, 37, 41, 43, 47, 49, 53, 55, 59, 61, 64, 65, 67, 71, 73, 79, 81, 83, 89, 97, 101, 103, 107, 109, 113, 115, 121, 125, 127, 128, 131, 137, 139, 143, 145, 149, 151, 157, 163, 167, 169, 173, 179, 181
Offset: 1

Views

Author

Gus Wiseman, Mar 30 2024

Keywords

Comments

Also Heinz numbers of binary carry-connected integer partitions whose distinct parts have no binary containments, counted by A371446.
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.
A binary carry of two positive integers is an overlap of binary indices. A multiset is said to be binary carry-connected iff the graph whose vertices are the elements and whose edges are binary carries is connected.
A binary containment is a containment of binary indices. For example, the numbers {3,5} have binary indices {{1,2},{1,3}}, so there is a binary carry but not a binary containment.

Examples

			The terms together with their prime indices begin:
     2: {1}            37: {12}              97: {25}
     3: {2}            41: {13}             101: {26}
     4: {1,1}          43: {14}             103: {27}
     5: {3}            47: {15}             107: {28}
     7: {4}            49: {4,4}            109: {29}
     8: {1,1,1}        53: {16}             113: {30}
     9: {2,2}          55: {3,5}            115: {3,9}
    11: {5}            59: {17}             121: {5,5}
    13: {6}            61: {18}             125: {3,3,3}
    16: {1,1,1,1}      64: {1,1,1,1,1,1}    127: {31}
    17: {7}            65: {3,6}            128: {1,1,1,1,1,1,1}
    19: {8}            67: {19}             131: {32}
    23: {9}            71: {20}             137: {33}
    25: {3,3}          73: {21}             139: {34}
    27: {2,2,2}        79: {22}             143: {5,6}
    29: {10}           81: {2,2,2,2}        145: {3,10}
    31: {11}           83: {23}             149: {35}
    32: {1,1,1,1,1}    89: {24}             151: {36}
		

Crossrefs

Contains all powers of primes A000961 except 1.
Case of A325118 (counted by A325098) without binary containments.
For binary indices of binary indices we have A326750 = A326704 /\ A326749.
For prime indices of prime indices we have A329559 = A305078 /\ A316476.
An opposite version is A371294 = A087086 /\ A371291.
Partitions of this type are counted by A371446.
Carry-connected case of A371455 (counted by A325109).
A001187 counts connected graphs.
A007718 counts non-isomorphic connected multiset partitions.
A048143 counts connected antichains of sets.
A048793 lists binary indices, A000120 length, A272020 reverse, A029931 sum.
A070939 gives length of binary expansion.
A326964 counts connected set-systems, covering A323818.

Programs

  • Mathematica
    stableQ[u_,Q_]:=!Apply[Or,Outer[#1=!=#2&&Q[#1,#2]&,u,u,1],{0,1}];
    bpe[n_]:=Join@@Position[Reverse[IntegerDigits[n,2]],1];
    prix[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n], {p_,k_}:>Table[PrimePi[p],{k}]]]];
    csm[s_]:=With[{c=Select[Subsets[Range[Length[s]],{2}], Length[Intersection@@s[[#]]]>0&]},If[c=={},s,csm[Sort[Append[Delete[s,List/@c[[1]]], Union@@s[[c[[1]]]]]]]]];
    Select[Range[100],stableQ[bpe/@prix[#],SubsetQ] && Length[csm[bpe/@prix[#]]]==1&]

Formula

Intersection of A371455 and A325118.

A371446 Number of carry-connected integer partitions whose distinct parts have no binary containments.

Original entry on oeis.org

1, 1, 2, 2, 3, 2, 4, 2, 5, 4, 4, 4, 8, 4, 7, 7, 12, 10, 14, 12, 15, 19, 19, 21, 32, 27, 33, 40, 46, 47, 61, 52, 75, 89, 95, 104, 129, 129, 149, 176, 188, 208, 249, 257, 296, 341, 373, 394, 476, 496, 552
Offset: 0

Views

Author

Gus Wiseman, Apr 02 2024

Keywords

Comments

These partitions are ranked by A371445.
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.
A binary carry of two positive integers is an overlap of binary indices. An integer partition is binary carry-connected iff the graph with one vertex for each part and edges corresponding to binary carries is connected.
A binary containment is a containment of binary indices. For example, the numbers {3,5} have binary indices {{1,2},{1,3}}, so there is a binary carry but not a binary containment.

Examples

			The a(12) = 8 through a(14) = 7 partitions:
  (12)             (13)                         (14)
  (6,6)            (10,3)                       (7,7)
  (9,3)            (5,5,3)                      (9,5)
  (4,4,4)          (1,1,1,1,1,1,1,1,1,1,1,1,1)  (6,5,3)
  (6,3,3)                                       (5,3,3,3)
  (3,3,3,3)                                     (2,2,2,2,2,2,2)
  (2,2,2,2,2,2)                                 (1,1,1,1,1,1,1,1,1,1,1,1,1,1)
  (1,1,1,1,1,1,1,1,1,1,1,1)
		

Crossrefs

The first condition (carry-connected) is A325098.
The second condition (stable) is A325109.
Ranks for binary indices of binary indices are A326750 = A326704 /\ A326749.
Ranks for prime indices of prime indices are A329559 = A305078 /\ A316476.
Ranks for prime indices of binary indices are A371294 = A087086 /\ A371291.
Ranks for binary indices of prime indices are A371445 = A325118 /\ A371455.
A001187 counts connected graphs.
A007718 counts non-isomorphic connected multiset partitions.
A048143 counts connected antichains of sets.
A048793 lists binary indices, reverse A272020, length A000120, sum A029931.
A070939 gives length of binary expansion.
A326964 counts connected set-systems, covering A323818.

Programs

  • Mathematica
    stableQ[u_,Q_]:=!Apply[Or,Outer[#1=!=#2&&Q[#1,#2]&,u,u,1],{0,1}];
    bix[n_]:=Join@@Position[Reverse[IntegerDigits[n,2]],1];
    prix[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n], {p_,k_}:>Table[PrimePi[p],{k}]]]];
    csm[s_]:=With[{c=Select[Subsets[Range[Length[s]],{2}], Length[Intersection@@s[[#]]]>0&]},If[c=={},s, csm[Sort[Append[Delete[s,List/@c[[1]]],Union@@s[[c[[1]]]]]]]]];
    Table[Length[Select[IntegerPartitions[n], stableQ[bix/@Union[#],SubsetQ]&&Length[csm[bix/@#]]<=1&]],{n,0,30}]

A325120 Sum of binary lengths of the prime indices of n.

Original entry on oeis.org

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

Views

Author

Gus Wiseman, Mar 29 2019

Keywords

Comments

The binary length of n is the number of digits in its binary representation. A prime index of n is a number m such that prime(m) divides n. The multiset of prime indices of n is row n of A112798.

Crossrefs

Programs

  • Mathematica
    Table[Sum[pr[[2]]*IntegerLength[PrimePi[pr[[1]]],2],{pr,FactorInteger[n]}],{n,100}]

Formula

Totally additive with a(prime(n)) = A070939(n).

A325121 Sum of binary digits of the prime indices of n.

Original entry on oeis.org

0, 1, 1, 2, 2, 2, 1, 3, 2, 3, 2, 3, 2, 2, 3, 4, 3, 3, 1, 4, 2, 3, 2, 4, 4, 3, 3, 3, 2, 4, 3, 5, 3, 4, 3, 4, 2, 2, 3, 5, 3, 3, 3, 4, 4, 3, 4, 5, 2, 5, 4, 4, 1, 4, 4, 4, 2, 3, 2, 5, 2, 4, 3, 6, 4, 4, 3, 5, 3, 4, 2, 5, 3, 3, 5, 3, 3, 4, 3, 6, 4, 4, 4, 4, 5, 4, 3
Offset: 1

Views

Author

Gus Wiseman, Mar 29 2019

Keywords

Comments

The sum of binary digits of an integer is the number of 1's in its binary representation. A prime index of n is a number m such that prime(m) divides n. The multiset of prime indices of n is row n of A112798.

Crossrefs

Programs

  • Mathematica
    Table[Sum[pr[[2]]*DigitCount[PrimePi[pr[[1]]],2,1],{pr,FactorInteger[n]}],{n,100}]

Formula

Totally additive with a(prime(n)) = A000120(n).
Showing 1-10 of 10 results.