%I #25 Feb 26 2023 19:38:51
%S 1,1,1,1,1,2,1,1,1,1,1,3,1,1,1,1,1,2,1,2,1,1,1,5,1,1,1,1,1,3,1,1,1,1,
%T 1,5,1,1,1,3,1,2,1,1,1,1,1,6,1,1,1,1,1,2,1,1,1,1,1,25,1,1,1,1,1,2,1,1,
%U 1,1,1,18,1,1,1,1,1,2,1,3,1,1,1,17,1,1,1,1,1,14,1,1,1,1,1,12,1,1,1,3,1,2,1,1,1
%N Number of strict integer partitions of n into divisors of n whose length also divides n.
%C The first element not in A326715 that is however a Heinz number of these partitions is 273.
%H David A. Corneth, <a href="/A340827/b340827.txt">Table of n, a(n) for n = 1..10000</a> (first 2519 terms from Antti Karttunen)
%H Antti Karttunen, <a href="/A340827/a340827.txt">Scheme program for computing this sequence</a>
%e The a(n) partitions for n = 6, 12, 24, 90, 84:
%e 6 12 24 90 84
%e 3,2,1 6,4,2 12,8,4 45,30,15 42,28,14
%e 6,3,2,1 12,6,4,2 45,30,9,5,1 42,21,14,7
%e 12,8,3,1 45,18,15,9,3 42,28,12,2
%e 8,6,4,3,2,1 45,30,10,3,2 42,28,6,4,3,1
%e 45,18,15,10,2 42,28,7,4,2,1
%e 45,30,6,5,3,1 42,14,12,7,6,3
%e 45,30,9,3,2,1 42,21,12,4,3,2
%e 45,15,10,9,6,5 42,21,12,6,2,1
%e 45,18,10,9,5,3 42,21,14,4,2,1
%e 45,18,10,9,6,2 28,21,14,12,6,3
%e 45,18,15,6,5,1 28,21,14,12,7,2
%e 45,18,15,9,2,1 42,21,7,6,4,3,1
%e 30,18,15,10,6,5,3,2,1 42,14,12,7,4,3,2
%e 42,14,12,7,6,2,1
%e 28,21,14,12,4,3,2
%e 28,21,14,12,6,2,1
%t Table[Length[Select[IntegerPartitions[n,All,Divisors[n]],UnsameQ@@#&&Divisible[n,Length[#]]&]],{n,30}]
%o (PARI) A340827(n, divsleft=List(divisors(n)), rest=n, len=0) = if(rest<=0, !rest && !(n%len), my(s=0, d); forstep(i=#divsleft, 1, -1, d = divsleft[i]; listpop(divsleft,i); if(rest>=d, s += A340827(n, divsleft, rest-d, 1+len))); (s)); \\ _Antti Karttunen_, Feb 22 2023
%o (Scheme) ;; See the Links-section. - _Antti Karttunen_, Feb 22 2023
%Y Note: A-numbers of Heinz-number sequences are in parentheses below.
%Y The non-strict case is A326842 (A326847).
%Y A018818 = partitions using divisors (A326841).
%Y A047993 = balanced partitions (A106529).
%Y A067538 = partitions whose length/maximum divides sum (A316413/A326836).
%Y A072233 = partitions by sum and length, with strict case A008289.
%Y A102627 = strict partitions whose length divides sum.
%Y A326850 = strict partitions whose maximum part divides sum.
%Y A326851 = strict partitions w/ length and max dividing sum.
%Y A340828 = strict partitions w/ length divisible by max.
%Y A340829 = strict partitions w/ Heinz number divisible by sum.
%Y A340830 = strict partitions w/ parts divisible by length.
%Y Cf. A064173, A143773 (A316428), A168659, A326843 (A326837), A326852, A330950 (A324851), A340851, A340853.
%K nonn
%O 1,6
%A _Gus Wiseman_, Feb 01 2021
%E Data section extended up to a(105) by _Antti Karttunen_, Feb 22 2023