A325095 -id:A325095 - cp's OEIS frontend

A050315 Main diagonal of A050314.

1, 1, 1, 2, 1, 2, 2, 5, 1, 2, 2, 5, 2, 5, 5, 15, 1, 2, 2, 5, 2, 5, 5, 15, 2, 5, 5, 15, 5, 15, 15, 52, 1, 2, 2, 5, 2, 5, 5, 15, 2, 5, 5, 15, 5, 15, 15, 52, 2, 5, 5, 15, 5, 15, 15, 52, 5, 15, 15, 52, 15, 52, 52, 203, 1, 2, 2, 5, 2, 5, 5, 15, 2, 5, 5, 15, 5, 15, 15, 52, 2, 5, 5, 15, 5, 15

Offset: 0

Christian G. Bower, Sep 15 1999

nonn

Also, a(n) is the number of odd multinomial coefficients n!/(k_1!...k_m!) with 1 <= k_1 <= ... <= k_m and k_1 + ... + k_m = n. - Pontus von Brömssen, Mar 23 2018
From Gus Wiseman, Mar 30 2019: (Start)
Also the number of strict integer partitions of n with no binary carries. The Heinz numbers of these partitions are given by A325100. A binary carry of two positive integers is an overlap of the positions of 1's in their reversed binary expansion. For example, the a(1) = 1 through a(15) = 15 strict integer partitions with no binary carries are:
(1) (2) (3)  (4) (5)  (6)  (7)   (8) (9)  (A)  (B)   (C)  (D)   (E)   (F)
        (21)     (41) (42) (43)      (81) (82) (83)  (84) (85)  (86)  (87)
                           (52)                (92)       (94)  (A4)  (96)
                           (61)                (A1)       (C1)  (C2)  (A5)
                           (421)               (821)      (841) (842) (B4)
                                                                      (C3)
                                                                      (D2)
                                                                      (E1)
                                                                      (843)
                                                                      (852)
                                                                      (861)
                                                                      (942)
                                                                      (A41)
                                                                      (C21)
                                                                      (8421)
(End)

Alois P. Heinz, Table of n, a(n) for n = 0..16383
Michael Gilleland, Some Self-Similar Integer Sequences

Cf. A000110, A000120, A050314.
Cf. A070939, A080572, A247935, A267610.
Cf. A325093, A325095, A325096, A325099, A325100, A325103, A325110, A325123.
Main diagonal of A307431 and of A307505.

a:= n-> combinat[bell](add(i,i=convert(n, base, 2))):
seq(a(n), n=0..100);  # Alois P. Heinz, Apr 08 2019

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[#,Intersection[binpos[#1],binpos[#2]]!={}&]&]],{n,0,20}] (* Gus Wiseman, Mar 30 2019 *)
a[n_] := BellB[DigitCount[n, 2, 1]];
a /@ Range[0, 100] (* Jean-François Alcover, May 21 2021 *)

Bell number of number of 1's in binary: a(n) = A000110(A000120(n)).

A247935 Number of integer partitions of n whose distinct parts have no binary carries.

Original entry on oeis.org

1, 1, 2, 3, 4, 5, 8, 10, 11, 14, 18, 21, 26, 30, 38, 49, 47, 55, 66, 74, 84, 96, 110, 126, 134, 151, 171, 195, 209, 235, 272, 318, 307, 349, 377, 422, 448, 491, 534, 595, 617, 674, 734, 801, 841, 925, 998, 1098, 1118, 1219, 1299, 1418, 1476, 1591, 1711, 1865

Offset: 0

David S. Newman, Sep 26 2014

nonn

From Gus Wiseman, Mar 31 2019: (Start)
A binary carry of two positive integers is an overlap of the positions of 1's in their reversed binary expansion. For example, the reversed binary expansions of 2, 5, and 8 are
  {0,1}
  {1,0,1}
  {0,0,0,1}
and since there are no columns with more than one 1, the partition (8,5,2) is counted under a(15). The Heinz numbers of these partitions are given by A325097.
(End)

			From _Gus Wiseman_, Mar 30 2019: (Start)
The a(1) = 1 through a(8) = 11 partitions:
  (1)  (2)   (3)    (4)     (5)      (6)       (7)        (8)
       (11)  (21)   (22)    (41)     (33)      (43)       (44)
             (111)  (211)   (221)    (42)      (52)       (422)
                    (1111)  (2111)   (222)     (61)       (611)
                            (11111)  (411)     (421)      (2222)
                                     (2211)    (2221)     (4211)
                                     (21111)   (4111)     (22211)
                                     (111111)  (22111)    (41111)
                                               (211111)   (221111)
                                               (1111111)  (2111111)
                                                          (11111111)
(End)

Alois P. Heinz, Table of n, a(n) for n = 0..1000

Cf. A000110, A000120, A050315, A070939, A080572, A248605, A267610.

Cf. A325095, A325096, A325097, A325098, A325102, A325103, A325109.

with(Bits):
b:= proc(n, i, t) option remember; `if`(n=0, 1, `if`(i<1, 0,
      b(n, i-1, t) +`if`(i>n or And(t, i)>0, 0,
      add(b(n-i*j, i-1, Or(t, i)), j=1..n/i))))
    end:
a:= n-> b(n$2, 0):
seq(a(n), n=0..80);  # Alois P. Heinz, Dec 28 2014

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],stableQ[#,Intersection[binpos[#1],binpos[#2]]!={}&]&]],{n,0,20}] (* Gus Wiseman, Mar 30 2019 *)
b[n_, i_, t_] := b[n, i, t] = If[n == 0, 1, If[i < 1, 0, b[n, i - 1, t] + If[i > n || BitAnd[t, i] > 0, 0, Sum[b[n - i*j, i - 1, BitOr[t, i]], {j, 1, n/i}]]]];
a[n_] := b[n, n, 0];
a /@ Range[0, 80] (* Jean-François Alcover, May 23 2021, after Alois P. Heinz *)

More terms from Alois P. Heinz, Oct 15 2014

Name edited by Gus Wiseman, Mar 31 2019

A325096 Number of maximal subsets of {1...n} with no binary carries.

Original entry on oeis.org

1, 1, 1, 2, 2, 3, 4, 5, 5, 7, 9, 10, 12, 13, 14, 15, 15, 20, 25, 27, 32, 34, 36, 37, 42, 44, 46, 47, 49, 50, 51, 52, 52, 67, 82, 87, 102, 107, 112, 114, 129, 134, 139, 141, 146, 148, 150, 151, 166, 171, 176, 178, 183, 185, 187, 188, 193, 195, 197, 198, 200, 201

Offset: 0

Gus Wiseman, Mar 27 2019

A binary carry of two positive integers is an overlap of the positions of 1's in their reversed binary expansion.

			The a(1) = 1 through a(9) = 7 maximal subsets:
  {1}  {12}  {3}   {34}   {25}   {16}   {7}    {78}    {69}
             {12}  {124}  {34}   {25}   {16}   {168}   {78}
                          {124}  {34}   {25}   {258}   {168}
                                 {124}  {34}   {348}   {249}
                                        {124}  {1248}  {258}
                                                       {348}
                                                       {1248}

Alois P. Heinz, Table of n, a(n) for n = 0..8192

Cf. A000110, A019565, A050315, A080572, A247935, A267610, A267700.

Cf. A325095, A325099, A325100, A325101, A325103, A325104, A325107.

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}];
maxim[s_]:=Complement[s,Last/@Select[Tuples[s,2],UnsameQ@@#&&SubsetQ@@#&]];
Table[Length[maxim[Select[Subsets[Range[n]],stableQ[#,Intersection[binpos[#1],binpos[#2]]!={}&]&]]],{n,0,10}]

a(2^n - 1) = A000110(n).

a(15)-a(61) from Alois P. Heinz, Mar 28 2019

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

Gus Wiseman, Mar 28 2019

nonn

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.

			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}

Alois P. Heinz, Table of n, a(n) for n = 0..1023

Cf. A019565, A080572, A247935, A304714, A304716, A305078.
Cf. A325095, A325098, A325099, A325104, A325107, A325118, A325119.
Partial sums of A306299.

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

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}]

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

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

A325097 Heinz numbers of integer partitions whose distinct parts have no binary carries.

Original entry on oeis.org

1, 2, 3, 4, 5, 6, 7, 8, 9, 11, 12, 13, 14, 16, 17, 18, 19, 21, 23, 24, 25, 26, 27, 28, 29, 31, 32, 33, 35, 36, 37, 38, 41, 42, 43, 47, 48, 49, 52, 53, 54, 56, 57, 58, 59, 61, 63, 64, 67, 69, 71, 72, 73, 74, 76, 79, 81, 83, 84, 86, 89, 95, 96, 97, 98, 99, 101

Offset: 1

Gus Wiseman, Mar 27 2019

nonn

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 numbers whose distinct prime indices have no binary carries.

			Most small numbers are in the sequence, however the sequence of non-terms together with their prime indices begins:
  10: {1,3}
  15: {2,3}
  20: {1,1,3}
  22: {1,5}
  30: {1,2,3}
  34: {1,7}
  39: {2,6}
  40: {1,1,1,3}
  44: {1,1,5}
  45: {2,2,3}
  46: {1,9}
  50: {1,3,3}
  51: {2,7}
  55: {3,5}
  60: {1,1,2,3}
  62: {1,11}
  65: {3,6}
  66: {1,2,5}
  68: {1,1,7}
  70: {1,3,4}

Cf. A000110, A000720, A001222, A050315, A056239, A080572, A112798, A247935.

Cf. A325094, A325095, A325096, A325097, A325098, A325100, A325102, A325103.

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],stableQ[PrimePi/@First/@FactorInteger[#],Intersection[binpos[#1],binpos[#2]]!={}&]&]

A325107 Number of subsets of {1...n} with no binary containments.

Original entry on oeis.org

1, 2, 4, 5, 10, 13, 18, 19, 38, 52, 77, 83, 133, 147, 166, 167, 334, 482, 764, 848, 1465, 1680, 1987, 2007, 3699, 4413, 5488, 5572, 7264, 7412, 7579, 7580, 15160, 22573, 37251, 42824, 77387, 92863, 116453, 118461, 227502, 286775, 382573, 392246, 555661, 574113

Offset: 0

Gus Wiseman, Mar 28 2019

nonn

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.

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

Fausto A. C. Cariboni, Table of n, a(n) for n = 0..129, (terms up to a(71) from Alois P. Heinz)

Cf. A006126, A014466, A019565, A267610.

Cf. A325095, A325096, A325101, A325105, A325106, A325108, A325109, A325110.

c:= proc() option remember; local i, x, y;
      x, y:= map(n-> Bits[Split](n), [args])[];
      for i to nops(x) do
        if x[i]=1 and y[i]=0 then return false fi
      od; true
    end:
b:= proc(n, s) option remember; `if`(n=0, 1, b(n-1, s)+
     `if`(ormap(i-> c(n, i), s), 0, b(n-1, s union {n})))
    end:
a:= n-> b(n, {}):
seq(a(n), n=0..34);  # Alois P. Heinz, Mar 28 2019

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[Subsets[Range[n]],stableQ[#,SubsetQ[binpos[#1],binpos[#2]]&]&]],{n,0,13}]

a(2^n - 1) = A014466(n).

a(16)-a(45) from Alois P. Heinz, Mar 28 2019

A325108 Number of maximal subsets of {1...n} with no binary containments.

Original entry on oeis.org

1, 1, 1, 2, 2, 4, 5, 6, 6, 11, 13, 16, 17, 22, 27, 28

Offset: 0

Gus Wiseman, Mar 28 2019

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.

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

Cf. A006126, A014466, A019565, A267610.

Cf. A325095, A325096, A325101, A325106, A325107, A325109, A325110.

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}];
maxim[s_]:=Complement[s,Last/@Select[Tuples[s,2],UnsameQ@@#&&SubsetQ@@#&]];
Table[Length[maxim[Select[Subsets[Range[n]],stableQ[#,SubsetQ[binpos[#1],binpos[#2]]&]&]]],{n,0,10}]

A325123 Number of divisible pairs of positive integers up to n with no binary carries.

Original entry on oeis.org

0, 0, 1, 1, 3, 3, 4, 4, 7, 7, 9, 9, 12, 12, 13, 13, 17, 17, 19, 19, 22, 22, 23, 23, 28, 28, 29, 29, 31, 31, 32, 32, 37, 37, 39, 39, 44, 44, 45, 45, 50, 50, 52, 52, 54, 54, 55, 55, 62, 62, 64, 64, 66, 66, 68, 68, 72, 72, 73, 73, 76, 76, 77, 77, 83, 83, 85, 85

Offset: 0

Gus Wiseman, Mar 29 2019

nonn

Two positive integers are divisible if the first divides the second, and they have a binary carry if the positions of 1's in their reversed binary expansion overlap.

a(2k+1) = a(2k), since an odd number and any divisor will overlap in the last digit. Additionally, a(2k+2) > a(2k+1) because the pair {1,2k+2} is always valid. Therefore, every term appears exactly twice. - Charlie Neder, Apr 02 2019

			The a(2) = 1 through a(11) = 9 pairs:
  {1,2}  {1,2}  {1,2}  {1,2}  {1,2}  {1,2}  {1,2}  {1,2}  {1,2}   {1,2}
                {1,4}  {1,4}  {1,4}  {1,4}  {1,4}  {1,4}  {1,4}   {1,4}
                {2,4}  {2,4}  {1,6}  {1,6}  {1,6}  {1,6}  {1,6}   {1,6}
                              {2,4}  {2,4}  {1,8}  {1,8}  {1,8}   {1,8}
                                            {2,4}  {2,4}  {2,4}   {2,4}
                                            {2,8}  {2,8}  {2,8}   {2,8}
                                            {4,8}  {4,8}  {4,8}   {4,8}
                                                          {1,10}  {1,10}
                                                          {5,10}  {5,10}

Cf. A006218, A019565, A050315, A070939, A080572, A247935, A267610.

Cf. A325095, A325096, A325101, A325103, A325104, A325105, A325106, A325124.

Table[Length[Select[Tuples[Range[n],2],Divisible@@Reverse[#]&&Intersection[Position[Reverse[IntegerDigits[#[[1]],2]],1],Position[Reverse[IntegerDigits[#[[2]],2]],1]]=={}&]],{n,0,20}]

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

Gus Wiseman, Mar 28 2019

nonn

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 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)

Cf. A050315, A080572, A247935, A267610, A267700.

Cf. A325095, A325096, A325098, A325104, A325106, A325110, A325119.

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

Gus Wiseman, Mar 28 2019

nonn

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.

			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}

Cf. A050315, A056239, A080572, A112798, A247935, A267610.

Cf. A325095, A325096, A325097, A325100, A325101, A325103, A325110, A325119.

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]]!={}&]&]

cp's OEIS Frontend

A050315 Main diagonal of A050314.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Maple

Mathematica

Formula

A247935 Number of integer partitions of n whose distinct parts have no binary carries.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Maple

Mathematica

Extensions

A325096 Number of maximal subsets of {1...n} with no binary carries.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

Formula

Extensions

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

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Maple

Mathematica

Formula

Extensions

A325097 Heinz numbers of integer partitions whose distinct parts have no binary carries.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A325107 Number of subsets of {1...n} with no binary containments.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Maple

Mathematica

Formula

Extensions

A325108 Number of maximal subsets of {1...n} with no binary containments.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica