Svoboda | Graniru | BBC Russia | Golosameriki | Facebook
login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A325099 Number of binary carry-connected strict integer partitions of n. 6

%I #6 Jul 27 2019 14:57:51

%S 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,

%T 125,131,165,184,237,251,291,315,383,408,486,536,663,714,832,912,1104,

%U 1195,1405,1554,1877,2046,2348,2559,2998,3256,3730,4084,4793,5230,5938

%N Number of binary carry-connected strict integer partitions of n.

%C 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.

%e The a(1) = 1 through a(11) = 6 strict partitions (A = 10, B = 11):

%e (1) (2) (3) (4) (5) (6) (7) (8) (9) (A) (B)

%e (31) (32) (51) (53) (54) (64) (65)

%e (321) (62) (63) (73) (74)

%e (71) (72) (91) (632)

%e (531) (532) (731)

%e (541) (5321)

%e (631)

%e (721)

%t binpos[n_]:=Join@@Position[Reverse[IntegerDigits[n,2]],1];

%t 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]]]]]]]]];

%t Table[Length[Select[IntegerPartitions[n],UnsameQ@@#&&Length[csm[binpos/@#]]<=1&]],{n,0,30}]

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

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

%K nonn

%O 0,5

%A _Gus Wiseman_, Mar 28 2019

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified September 12 01:49 EDT 2024. Contains 375842 sequences. (Running on oeis4.)