login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A275870 Number of collapsible integer partitions of n. 34
1, 2, 2, 4, 2, 7, 2, 10, 5, 9, 2, 34, 2, 11, 10, 36, 2, 64, 2, 60, 12, 15, 2, 320, 7, 17, 23, 94, 2, 297, 2, 202, 16, 21, 14, 1488, 2, 23, 18, 776, 2, 610, 2, 186, 148, 27, 2, 6978, 9, 319 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,2

COMMENTS

If a collapse is a joining of some number of equal parts of an integer partition p, we say p is collapsible if by some sequence of collapses it can be reduced to a single part. An example of such a sequence of collapses is (32211111)->(332211)->(33222)->(6222)->(66)->(n) which shows that (32211111) is a collapsible partition of n=twelve.

One can show that if n is a power of a prime, then a partition of n is collapsible iff its parts are all divisors of n; so this sequence shares many terms with A145515 (number of partitions of k^n into powers of k) and A018818 (number of partitions of n into divisors of n).

LINKS

Table of n, a(n) for n=1..50.

Gus Wiseman, The first 16 terms illustrated (together with the partial order induced by the collapsing relation)

Gus Wiseman, Hasse diagram for the case n=16 with full detail

FORMULA

a(2^n)=A002577(n+1).

MATHEMATICA

repcaps[q_List]:=repcaps[q]=Union[{q}, If[UnsameQ@@q, {}, Union@@repcaps/@Union[Sort[Append[Drop[q, #], Plus@@Take[q, #]], Greater]&/@Select[Tuples[Range[Length[q]], 2], And[Less@@#, SameQ@@Take[q, #]]&]]]];

repenum[n_]:=Length[Select[IntegerPartitions[n], MemberQ[repcaps[#], {n}]&]];

Table[repenum[n], {n, 1, 32}](* Gus Wiseman, Aug 11 2016 *)

CROSSREFS

Cf. A002577, A145515, A018818.

Sequence in context: A057767 A207329 A122977 * A321721 A003980 A286369

Adjacent sequences:  A275867 A275868 A275869 * A275871 A275872 A275873

KEYWORD

nonn

AUTHOR

Gus Wiseman, Aug 11 2016

STATUS

approved

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

License Agreements, Terms of Use, Privacy Policy. .

Last modified November 17 23:26 EST 2019. Contains 329242 sequences. (Running on oeis4.)