%I #23 Feb 06 2022 06:46:26
%S 1,1,2,3,5,6,11,12,20,25,37,43,70,78,114,143,196,232,330,386,530,641,
%T 836,1003,1340,1581,2037,2461,3127,3719,4746,5605,7038,8394,10376,
%U 12327,15272,17978,22024,26095,31730,37339,45333,53175,64100,75340,90138
%N Number of integer partitions of n with a part dividing all the other parts.
%C Since the summand (part) which divides all the other summands is necessarily the smallest, an equivalent definition is: "Number of partitions of n such that smallest part divides every part." - _Joerg Arndt_, Jun 08 2009
%C The first few partitions that fail the criterion are 5=3+2, 7=5+2=4+3=3+2+2. So a(5) = A000041(5) - 1 = 6, a(7) = A000041(7) - 3 = 12. - _Vladeta Jovovic_, Jun 17 2003
%C Starting with offset 1 = inverse Mobius transform (A051731) of the partition numbers, A000041. - _Gary W. Adamson_, Jun 08 2009
%D L. M. Chawla, M. O. Levan and J. E. Maxfield, On a restricted partition function and its tables, J. Natur. Sci. and Math., 12 (1972), 95-101.
%F Equals left border of triangle A137587 starting (1, 2, 3, 5, 6, 11, ...). - _Gary W. Adamson_, Jan 27 2008
%F Comment from Joerg Arndt, Jun 08 2009: Sequence has g.f. 1 + Sum_{n>=1} x^n/eta(x^n). The g.f. for partitions into parts that are a multiple of n is x^n/eta(x^n), now sum over n.
%F _Gary W. Adamson_'s comment is equivalent to the formula a(n) = Sum_{d|n} p(d-1) where p(i) = number of partitions of i (A000041(i)). Hence A083710 has g.f. Sum_{d>=1} p(d-1)*x^d/(1-x^d), - _N. J. A. Sloane_, Jun 08 2009
%e From _Gus Wiseman_, Apr 18 2021: (Start)
%e The a(1) = 1 through a(7) = 12 partitions:
%e (1) (2) (3) (4) (5) (6) (7)
%e (11) (21) (22) (41) (33) (61)
%e (111) (31) (221) (42) (331)
%e (211) (311) (51) (421)
%e (1111) (2111) (222) (511)
%e (11111) (321) (2221)
%e (411) (3211)
%e (2211) (4111)
%e (3111) (22111)
%e (21111) (31111)
%e (111111) (211111)
%e (1111111)
%e (End)
%p with(combinat): with(numtheory): a := proc(n) c := 0: l := sort(convert(divisors(n), list)): for i from 1 to nops(l)-0 do c := c+numbpart(l[i]-1) od: RETURN(c): end: for j from 0 to 60 do printf(`%d, `, a(j)) od: # _Zerinvary Lajos_, Apr 14 2007
%t Table[Length[Select[IntegerPartitions[n],And@@IntegerQ/@(#/Min@@#)&]],{n,0,30}] (* _Gus Wiseman_, Apr 18 2021 *)
%Y Cf. A018783, A137587.
%Y Cf. A000041, A051731. - _Gary W. Adamson_, Jun 08 2009
%Y The case with no 1's is A083711.
%Y The strict case is A097986.
%Y The version for "divisible by" instead of "dividing" is A130689.
%Y The case where there is also a part divisible by all the others is A130714.
%Y The complement of these partitions is counted by A338470.
%Y The Heinz numbers of these partitions are dense, complement of A342193.
%Y The case where there is also no part divisible by all the others is A343345.
%Y A000005 counts divisors.
%Y A000070 counts partitions with a selected part.
%Y A006128 counts partitions with a selected position.
%Y A015723 counts strict partitions with a selected part.
%Y A018818 counts partitions into divisors (strict: A033630).
%Y A167865 counts strict chains of divisors > 1 summing to n.
%Y Cf. A001792, A098965, A264401, A339563, A343340, A343341, A343378.
%K nonn,easy
%O 0,3
%A _N. J. A. Sloane_, Jun 16 2003
%E More terms from _Vladeta Jovovic_, Jun 17 2003
%E Name shortened by _Gus Wiseman_, Apr 18 2021