A338470 -id:A338470 - cp's OEIS frontend

A083710 Number of integer partitions of n with a part dividing all the other parts.

1, 1, 2, 3, 5, 6, 11, 12, 20, 25, 37, 43, 70, 78, 114, 143, 196, 232, 330, 386, 530, 641, 836, 1003, 1340, 1581, 2037, 2461, 3127, 3719, 4746, 5605, 7038, 8394, 10376, 12327, 15272, 17978, 22024, 26095, 31730, 37339, 45333, 53175, 64100, 75340, 90138

Offset: 0

N. J. A. Sloane, Jun 16 2003

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
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
Starting with offset 1 = inverse Mobius transform (A051731) of the partition numbers, A000041. - Gary W. Adamson, Jun 08 2009

			From _Gus Wiseman_, Apr 18 2021: (Start)
The a(1) = 1 through a(7) = 12 partitions:
  (1)  (2)   (3)    (4)     (5)      (6)       (7)
       (11)  (21)   (22)    (41)     (33)      (61)
             (111)  (31)    (221)    (42)      (331)
                    (211)   (311)    (51)      (421)
                    (1111)  (2111)   (222)     (511)
                            (11111)  (321)     (2221)
                                     (411)     (3211)
                                     (2211)    (4111)
                                     (3111)    (22111)
                                     (21111)   (31111)
                                     (111111)  (211111)
                                               (1111111)
(End)

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.

Cf. A018783, A137587.
Cf. A000041, A051731. - Gary W. Adamson, Jun 08 2009
The case with no 1's is A083711.
The strict case is A097986.
The version for "divisible by" instead of "dividing" is A130689.
The case where there is also a part divisible by all the others is A130714.
The complement of these partitions is counted by A338470.
The Heinz numbers of these partitions are dense, complement of A342193.
The case where there is also no part divisible by all the others is A343345.
A000005 counts divisors.
A000070 counts partitions with a selected part.
A006128 counts partitions with a selected position.
A015723 counts strict partitions with a selected part.
A018818 counts partitions into divisors (strict: A033630).
A167865 counts strict chains of divisors > 1 summing to n.
Cf. A001792, A098965, A264401, A339563, A343340, A343341, A343378.

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

Table[Length[Select[IntegerPartitions[n],And@@IntegerQ/@(#/Min@@#)&]],{n,0,30}] (* Gus Wiseman, Apr 18 2021 *)

Equals left border of triangle A137587 starting (1, 2, 3, 5, 6, 11, ...). - Gary W. Adamson, Jan 27 2008
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. - Joerg Arndt, Jun 08 2009
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

More terms from Vladeta Jovovic, Jun 17 2003

Name shortened by Gus Wiseman, Apr 18 2021

A264401 Triangle read by rows: T(n,k) is the number of partitions of n having least gap k.

Original entry on oeis.org

1, 0, 1, 1, 1, 1, 1, 1, 2, 2, 1, 2, 3, 2, 4, 4, 2, 1, 4, 6, 4, 1, 7, 8, 5, 2, 8, 11, 8, 3, 12, 15, 10, 4, 1, 14, 20, 15, 6, 1, 21, 26, 19, 9, 2, 24, 35, 27, 12, 3, 34, 45, 34, 17, 5, 41, 58, 47, 23, 6, 1, 55, 75, 59, 31, 10, 1, 66, 96, 79, 41, 13, 2

Offset: 0

Emeric Deutsch, Nov 21 2015

The "least gap" or "mex" of a partition is the least positive integer that is not a part of the partition. For example, the least gap of the partition [7,4,2,2,1] is 3.
Sum of entries in row n is A000041(n).
T(n,1) = A002865(n).
Sum_{k>=1} k*T(n,k) = A022567(n).

			Row n=5 is 2,3,2; indeed, the least gaps of [5], [4,1], [3,2], [3,1,1], [2,2,1], [2,1,1,1], and [1,1,1,1,1] are 1, 2, 1, 2, 3, 3, and 2, respectively (i.e., two 1s, three 2s, and two 3s).
Triangle begins:
   1
   0   1
   1   1
   1   1   1
   2   2   1
   2   3   2
   4   4   2   1
   4   6   4   1
   7   8   5   2
   8  11   8   3
  12  15  10   4   1
  14  20  15   6   1
  21  26  19   9   2

Alois P. Heinz, Rows n = 0..1000, flattened
George E. Andrews and David Newman, Partitions and the Minimal Excludant, Annals of Combinatorics, Volume 23, May 2019, Pages 249-254.
P. J. Grabner and A. Knopfmacher, Analysis of some new partition statistics, Ramanujan J., 12, 2006, 439-454.
Brian Hopkins, James A. Sellers, and Dennis Stanton, Dyson's Crank and the Mex of Integer Partitions, arXiv:2009.10873 [math.CO], 2020.
Wikipedia, Mex (mathematics)

Row sums are A000041.
Row lengths are A002024.
Column k = 1 is A002865.
Column k = 2 is A027336.
The strict case is A343348.
A000009 counts strict partitions.
A000041 counts partitions.
A000070 counts partitions with a selected part.
A006128 counts partitions with a selected position.
A015723 counts strict partitions with a selected part.
A257993 gives the least gap of the partition with Heinz number n.
A339564 counts factorizations with a selected factor.
A342050 ranks partitions with even least gap.
A342051 ranks partitions with odd least gap.
Cf. A003242, A022567, A048004, A083710, A098743, A130689, A338470, A343341.

g := (sum(t^j*x^((1/2)*j*(j-1))*(1-x^j), j = 1 .. 80))/(product(1-x^i, i = 1 .. 80)): gser := simplify(series(g, x = 0, 23)): for n from 0 to 30 do P[n] := sort(coeff(gser, x, n)) end do: for n from 0 to 25 do seq(coeff(P[n], t, j), j = 1 .. degree(P[n])) end do; # yields sequence in triangular form
# second Maple program:
b:= proc(n, i) option remember; `if`(n=0, `if`(i=0, [1, 0],
      [0, x]), `if`(i<1, 0, (p-> [0, p[2] +p[1]*x^i])(
      b(n, i-1)) +add(b(n-i*j, i-1), j=1..n/i)))
    end:
T:= n->(p->seq(coeff(p, x, i), i=1..degree(p)))(b(n, n+1)[2]):
seq(T(n), n=0..20);  # Alois P. Heinz, Nov 29 2015

Needs["Combinatorica`"]; {1, 0}~Join~Flatten[Table[Count[Map[If[# == {}, 0, First@ #] &@ Complement[Range@ n, #] &, Combinatorica`Partitions@ n], n_ /; n == k], {n, 17}, {k, n}] /. 0 -> Nothing] (* Michael De Vlieger, Nov 21 2015 *)
mingap[q_]:=Min@@Complement[Range[If[q=={},0,Max[q]]+1],q];Table[Length[Select[IntegerPartitions[n],mingap[#]==k&]],{n,0,15},{k,Round[Sqrt[2*(n+1)]]}] (* Gus Wiseman, Apr 19 2021 *)
b[n_, i_] := b[n, i] = If[n == 0, If[i == 0, {1, 0}, {0, x}], If[i<1, {0, 0}, {0, #[[2]] + #[[1]]*x^i}&[b[n, i-1]] + Sum[b[n-i*j, i - 1], {j, 1, n/i}]]];
T[n_] := CoefficientList[b[n, n + 1], x][[2]] // Rest;
T /@ Range[0, 20] // Flatten (* Jean-François Alcover, May 21 2021, after Alois P. Heinz *)

G.f.: G(t,x) = Sum_{j>=1} (t^j*x^{j(j-1)/2}*(1-x^j))/Product_{i>=1}(1-x^i).

A097986 Number of strict integer partitions of n with a part dividing all the other parts.

Original entry on oeis.org

1, 1, 2, 2, 2, 4, 3, 5, 5, 7, 6, 12, 9, 13, 15, 20, 18, 28, 26, 37, 39, 47, 49, 71, 68, 85, 94, 117, 120, 159, 160, 201, 216, 257, 277, 348, 357, 430, 470, 562, 592, 720, 758, 901, 981, 1134, 1220, 1457, 1542, 1798, 1952, 2250, 2419, 2819, 3023, 3482, 3773, 4291

Offset: 1

Vladeta Jovovic, Oct 23 2004

If n > 0, we can assume such a part is the smallest. - Gus Wiseman, Apr 23 2021

Also the number of uniform (constant multiplicity) partitions of n containing 1, ranked by A367586. The strict case is A096765. The version without 1 is A329436. - Gus Wiseman, Dec 01 2023

			From _Gus Wiseman_, Dec 01 2023: (Start)
The a(1) = 1 through a(8) = 5 strict partitions with a part dividing all the other parts:
  (1)  (2)  (3)    (4)    (5)    (6)      (7)      (8)
            (2,1)  (3,1)  (4,1)  (4,2)    (6,1)    (6,2)
                                 (5,1)    (4,2,1)  (7,1)
                                 (3,2,1)           (4,3,1)
                                                   (5,2,1)
The a(1) = 1 through a(8) = 5 uniform partitions containing 1:
  (1)  (11)  (21)   (31)    (41)     (51)      (61)       (71)
             (111)  (1111)  (11111)  (321)     (421)      (431)
                                     (2211)    (1111111)  (521)
                                     (111111)             (3311)
                                                          (11111111)
(End)

Alois P. Heinz, Table of n, a(n) for n = 1..10000 (first 500 terms from John Tyler Rascoe)

The non-strict version is A083710.
The case with no 1's is A098965.
The Heinz numbers of these partitions are A339563.
The strict complement is counted by A341450.
The version for "divisible by" instead of "dividing" is A343347.
The case where there is also a part divisible by all the others is A343378.
The case where there is no part divisible by all the others is A343381.
A000005 counts divisors.
A000009 counts strict partitions.
A000070 counts partitions with a selected part.
A006128 counts partitions with a selected position.
A015723 counts strict partitions with a selected part.
A018818 counts partitions into divisors (strict: A033630).
A167865 counts strict chains of divisors > 1 summing to n.
Cf. A083711, A098743, A130689, A200745, A264401, A338470, A343377, A343379, A343380.
Cf. A023645, A025147, A047966, A072774, A096765, A329436, A367586.

Take[ CoefficientList[ Expand[ Sum[x^k*Product[1 + x^(k*i), {i, 2, 62}], {k, 62}]], x], {2, 60}] (* Robert G. Wilson v, Nov 01 2004 *)
Table[Length[Select[IntegerPartitions[n], UnsameQ@@#&&Or@@Table[And@@IntegerQ/@(#/x), {x,#}]&]], {n,0,30}] (* Gus Wiseman, Apr 23 2021 *)

A_x(N) = {my(x='x+O('x^N)); Vec(sum(k=1,N,x^k*prod(i=2,N-k, (1+x^(k*i)))))}
A_x(50) \\ John Tyler Rascoe, Nov 19 2024

a(n) = Sum_{d|n} A025147(d-1).
G.f.: Sum_{k>=1} (x^k*Product_{i>=2} (1+x^(k*i))).
a(n) ~ exp(Pi*sqrt(n/3)) / (8*3^(1/4)*n^(3/4)). - Vaclav Kotesovec, Jul 06 2025

More terms from Robert G. Wilson v, Nov 01 2004

Name shortened by Gus Wiseman, Apr 23 2021

A130689 Number of partitions of n such that every part divides the largest part; a(0) = 1.

Original entry on oeis.org

1, 1, 2, 3, 5, 6, 10, 11, 16, 19, 26, 28, 41, 43, 56, 65, 82, 88, 115, 122, 155, 174, 209, 225, 283, 305, 363, 402, 477, 514, 622, 666, 783, 858, 990, 1078, 1268, 1362, 1561, 1708, 1958, 2111, 2433, 2613, 2976, 3247, 3652, 3938, 4482, 4821, 5422

Offset: 0

Vladeta Jovovic, Jul 01 2007

First differs from A130714 at a(11) = 28, A130714(11) = 27. - Gus Wiseman, Apr 23 2021

			For n = 6 we have 10 such partitions: [1, 1, 1, 1, 1, 1], [1, 1, 1, 1, 2], [1, 1, 2, 2], [2, 2, 2], [1, 1, 1, 3], [3, 3], [1, 1, 4], [2, 4], [1, 5], [6].
From _Gus Wiseman_, Apr 18 2021: (Start)
The a(1) = 1 through a(8) = 16 partitions:
  (1)  (2)   (3)    (4)     (5)      (6)       (7)        (8)
       (11)  (21)   (22)    (41)     (33)      (61)       (44)
             (111)  (31)    (221)    (42)      (331)      (62)
                    (211)   (311)    (51)      (421)      (71)
                    (1111)  (2111)   (222)     (511)      (422)
                            (11111)  (411)     (2221)     (611)
                                     (2211)    (4111)     (2222)
                                     (3111)    (22111)    (3311)
                                     (21111)   (31111)    (4211)
                                     (111111)  (211111)   (5111)
                                               (1111111)  (22211)
                                                          (41111)
                                                          (221111)
                                                          (311111)
                                                          (2111111)
                                                          (11111111)
(End)

Alois P. Heinz, Table of n, a(n) for n = 0..5000 (first 1001 terms from Andrew Howroyd)

Cf. A018818, A117086.
The dual version is A083710.
The case without 1's is A339619.
The Heinz numbers of these partitions are the complement of A343337.
The complement is counted by A343341.
The strict case is A343347.
The complement in the strict case is counted by A343377.
A000009 counts strict partitions.
A000041 counts partitions.
A000070 counts partitions with a selected part.
A006128 counts partitions with a selected position.
A015723 counts strict partitions with a selected part.
A072233 counts partitions by sum and greatest part.
Cf. A066186, A083711, A097986, A338470, A341450, A343346, A343382.

Table[If[n==0,1,Length[Select[IntegerPartitions[n],FreeQ[#,1]&&And@@IntegerQ/@(Max@@#/#)&]]],{n,0,30}] (* Gus Wiseman, Apr 18 2021 *)

seq(n)={Vec(1 + sum(m=1, n, my(u=divisors(m)); x^m/prod(i=1, #u, 1 - x^u[i] + O(x^(n-m+1)))))} \\ Andrew Howroyd, Apr 17 2021

G.f.: 1 + Sum_{n>0} x^n/Product_{d divides n} (1-x^d).

A341450 Number of strict integer partitions of n that are empty or have smallest part not dividing all the others.

Original entry on oeis.org

1, 0, 0, 0, 0, 1, 0, 2, 1, 3, 3, 6, 3, 9, 9, 12, 12, 20, 18, 28, 27, 37, 42, 55, 51, 74, 80, 98, 105, 136, 137, 180, 189, 232, 255, 308, 320, 403, 434, 512, 551, 668, 706, 852, 915, 1067, 1170, 1370, 1453, 1722, 1860, 2145, 2332, 2701, 2899, 3355, 3626, 4144

Offset: 0

Gus Wiseman, Apr 15 2021

nonn

Alternative name: Number of strict integer partitions of n with no part dividing all the others.

			The a(0) = 1 through a(15) = 12 strict partitions (empty columns indicated by dots, 0 represents the empty partition, A..D = 10..13):
  0  .  .  .  .  32   .  43   53   54    64    65    75    76    86     87
                         52        72    73    74    543   85    95     96
                                   432   532   83    732   94    A4     B4
                                               92          A3    B3     D2
                                               542         B2    653    654
                                               632         643   743    753
                                                           652   752    762
                                                           742   932    843
                                                           832   5432   852
                                                                        942
                                                                        A32
                                                                        6432

The complement is counted by A097986 (non-strict: A083710, rank: A339563).
The complement with no 1's is A098965 (non-strict: A083711).
The non-strict version is A338470.
The Heinz numbers of these partitions are A339562 (non-strict: A342193).
The case with greatest part not divisible by all others is A343379.
The case with greatest part divisible by all others is A343380.
A000009 counts strict partitions (non-strict: A000041).
A000070 counts partitions with a selected part.
A006128 counts partitions with a selected position.
A015723 counts strict partitions with a selected part.
A167865 counts strict chains of divisors > 1 summing to n.
Sequences with similar formulas: A024994, A047966, A047968, A168111.
Cf. A001787, A001792, A064410, A264401, A343342, A343381, A343382.

Table[Length[Select[IntegerPartitions[n],#=={}||UnsameQ@@#&&!And@@IntegerQ/@(#/Min@@#)&]],{n,0,30}]

a(n > 0) = A000009(n) - Sum_{d|n} A025147(d-1).

A343341 Number of integer partitions of n with no part divisible by all the others.

Original entry on oeis.org

1, 0, 0, 0, 0, 1, 1, 4, 6, 11, 16, 28, 36, 58, 79, 111, 149, 209, 270, 368, 472, 618, 793, 1030, 1292, 1653, 2073, 2608, 3241, 4051, 4982, 6176, 7566, 9285, 11320, 13805, 16709, 20275, 24454, 29477, 35380, 42472, 50741, 60648, 72199, 85887, 101906, 120816

Offset: 0

Gus Wiseman, Apr 15 2021

nonn

Alternative name: Number of integer partitions of n that are either empty, or have greatest part not divisible by all the others.

			The a(5) = 1 through a(10) = 16 partitions:
  (32)  (321)  (43)    (53)     (54)      (64)
               (52)    (332)    (72)      (73)
               (322)   (431)    (432)     (433)
               (3211)  (521)    (522)     (532)
                       (3221)   (531)     (541)
                       (32111)  (3222)    (721)
                                (3321)    (3322)
                                (4311)    (4321)
                                (5211)    (5221)
                                (32211)   (5311)
                                (321111)  (32221)
                                          (33211)
                                          (43111)
                                          (52111)
                                          (322111)
                                          (3211111)

The complement is counted by A130689.
The dual version is A338470.
The Heinz numbers of these partitions are A343337.
The strict case is A343377.
A000009 counts strict partitions.
A000041 counts partitions.
A000070 counts partitions with a selected part.
A006128 counts partitions with a selected position.
A015723 counts strict partitions with a selected part.
Cf. A066186, A083710, A083711, A097986, A098965, A341450, A343342, A343345, A343346, A343381, A343382.

Table[Length[Select[IntegerPartitions[n],#=={}||!And@@IntegerQ/@(Max@@#/#)&]],{n,0,30}]

A342193 Numbers with no prime index dividing all the other prime indices.

Original entry on oeis.org

1, 15, 33, 35, 45, 51, 55, 69, 75, 77, 85, 91, 93, 95, 99, 105, 119, 123, 135, 141, 143, 145, 153, 155, 161, 165, 175, 177, 187, 195, 201, 203, 205, 207, 209, 215, 217, 219, 221, 225, 231, 245, 247, 249, 253, 255, 265, 275, 279, 285, 287, 291, 295, 297, 299

Offset: 1

Gus Wiseman, Apr 11 2021

nonn

Alternative name: 1 and numbers with smallest prime index not dividing all the other prime indices.
First differs from A339562 in having 45.
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.
Also 1 and Heinz numbers of integer partitions with smallest part not dividing all the others (counted by A338470). The Heinz number of a partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k), giving a bijective correspondence between positive integers and integer partitions.

			The sequence of terms together with their prime indices begins:
      1: {}         105: {2,3,4}      201: {2,19}
     15: {2,3}      119: {4,7}        203: {4,10}
     33: {2,5}      123: {2,13}       205: {3,13}
     35: {3,4}      135: {2,2,2,3}    207: {2,2,9}
     45: {2,2,3}    141: {2,15}       209: {5,8}
     51: {2,7}      143: {5,6}        215: {3,14}
     55: {3,5}      145: {3,10}       217: {4,11}
     69: {2,9}      153: {2,2,7}      219: {2,21}
     75: {2,3,3}    155: {3,11}       221: {6,7}
     77: {4,5}      161: {4,9}        225: {2,2,3,3}
     85: {3,7}      165: {2,3,5}      231: {2,4,5}
     91: {4,6}      175: {3,3,4}      245: {3,4,4}
     93: {2,11}     177: {2,17}       247: {6,8}
     95: {3,8}      187: {5,7}        249: {2,23}
     99: {2,2,5}    195: {2,3,6}      253: {5,9}

The complement is counted by A083710 (strict: A097986).
The complement with no 1's is A083711 (strict: A098965).
These partitions are counted by A338470 (strict: A341450).
The squarefree case is A339562, with squarefree complement A339563.
The case with maximum prime index not divisible by all others is A343338.
The case with maximum prime index divisible by all others is A343339.
A000005 counts divisors.
A000070 counts partitions with a selected part.
A001221 counts distinct prime factors.
A006128 counts partitions with a selected position (strict: A015723).
A056239 adds up prime indices, row sums of A112798.
A299702 lists Heinz numbers of knapsack partitions.
A339564 counts factorizations with a selected factor.
Cf. A066637, A072774, A098743, A253249, A264401, A257993, A342050, A342051, A343344.

Select[Range[100],#==1||With[{p=PrimePi/@First/@FactorInteger[#]},!And@@IntegerQ/@(p/Min@@p)]&]

A343337 Numbers with no prime index divisible by all the other prime indices.

Original entry on oeis.org

1, 15, 30, 33, 35, 45, 51, 55, 60, 66, 69, 70, 75, 77, 85, 90, 91, 93, 95, 99, 102, 105, 110, 119, 120, 123, 132, 135, 138, 140, 141, 143, 145, 150, 153, 154, 155, 161, 165, 170, 175, 177, 180, 182, 186, 187, 190, 198, 201, 203, 204, 205, 207, 209, 210, 215

Offset: 1

Gus Wiseman, Apr 13 2021

nonn

Alternative name: 1 and numbers whose greatest prime index is not divisible by all the other prime indices.
First differs from A318992 in lacking 195.
First differs from A343343 in lacking 195.
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.
Also Heinz numbers of partitions with greatest part not divisible by all the others (counted by A343341). The Heinz number of a partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k), giving a bijective correspondence between positive integers and integer partitions.

			The sequence of terms together with their prime indices begins:
      1: {}            90: {1,2,2,3}      141: {2,15}
     15: {2,3}         91: {4,6}          143: {5,6}
     30: {1,2,3}       93: {2,11}         145: {3,10}
     33: {2,5}         95: {3,8}          150: {1,2,3,3}
     35: {3,4}         99: {2,2,5}        153: {2,2,7}
     45: {2,2,3}      102: {1,2,7}        154: {1,4,5}
     51: {2,7}        105: {2,3,4}        155: {3,11}
     55: {3,5}        110: {1,3,5}        161: {4,9}
     60: {1,1,2,3}    119: {4,7}          165: {2,3,5}
     66: {1,2,5}      120: {1,1,1,2,3}    170: {1,3,7}
     69: {2,9}        123: {2,13}         175: {3,3,4}
     70: {1,3,4}      132: {1,1,2,5}      177: {2,17}
     75: {2,3,3}      135: {2,2,2,3}      180: {1,1,2,2,3}
     77: {4,5}        138: {1,2,9}        182: {1,4,6}
     85: {3,7}        140: {1,1,3,4}      186: {1,2,11}
For example, 195 has prime indices {2,3,6}, and 6 is divisible by both 2 and 3, so 195 does not belong to the sequence.

The complement is counted by A130689.
The dual version is A342193.
The case with smallest prime index not dividing all the others is A343338.
The case with smallest prime index dividing by all the others is A343340.
These are the Heinz numbers of the partitions counted by A343341.
Including the dual version gives A343343.
A000005 counts divisors.
A000070 counts partitions with a selected part.
A006128 counts partitions with a selected position.
A056239 adds up prime indices, row sums of A112798.
A067824 counts strict chains of divisors starting with n.
A253249 counts strict chains of divisors.
A339564 counts factorizations with a selected factor.
Cf. A083710, A257993, A338470, A341450, A343342, A343345, A343346, A343377, A343379, A343381, A343382.

Select[Range[1000],#==1||With[{p=PrimePi/@First/@FactorInteger[#]},!And@@IntegerQ/@(Max@@p/p)]&]

A339563 Squarefree numbers > 1 whose smallest prime index divides all the other prime indices.

Original entry on oeis.org

2, 3, 5, 6, 7, 10, 11, 13, 14, 17, 19, 21, 22, 23, 26, 29, 30, 31, 34, 37, 38, 39, 41, 42, 43, 46, 47, 53, 57, 58, 59, 61, 62, 65, 66, 67, 70, 71, 73, 74, 78, 79, 82, 83, 86, 87, 89, 94, 97, 101, 102, 103, 106, 107, 109, 110, 111, 113, 114, 115, 118, 122, 127

Offset: 1

Gus Wiseman, Apr 10 2021

nonn

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.

Also Heinz numbers of strict integer partitions whose smallest part divides all the others (counted by A097986). The Heinz number of a partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k), giving a bijective correspondence between positive integers and integer partitions.

			The sequence of terms together with their prime indices begins:
      2: {1}       29: {10}        59: {17}
      3: {2}       30: {1,2,3}     61: {18}
      5: {3}       31: {11}        62: {1,11}
      6: {1,2}     34: {1,7}       65: {3,6}
      7: {4}       37: {12}        66: {1,2,5}
     10: {1,3}     38: {1,8}       67: {19}
     11: {5}       39: {2,6}       70: {1,3,4}
     13: {6}       41: {13}        71: {20}
     14: {1,4}     42: {1,2,4}     73: {21}
     17: {7}       43: {14}        74: {1,12}
     19: {8}       46: {1,9}       78: {1,2,6}
     21: {2,4}     47: {15}        79: {22}
     22: {1,5}     53: {16}        82: {1,13}
     23: {9}       57: {2,8}       83: {23}
     26: {1,6}     58: {1,10}      86: {1,14}

These partitions are counted by A097986 (non-strict: A083710).
The case with no 1's is counted by A098965 (non-strict: A083711).
The squarefree complement is A339562, ranked by A341450.
The complement of the not necessarily squarefree version is A342193.
A000005 counts divisors.
A000070 counts partitions with a selected part.
A001055 counts factorizations.
A001221 counts distinct prime factors.
A005117 lists squarefree numbers.
A006128 counts partitions with a selected position (strict: A015723).
A056239 adds up prime indices, row sums of A112798.
A338470 counts partitions with no dividing part.
Cf. A130714, A253249, A257993, A299702, A339564, A343340, A343378.

Select[Range[2,100],SquareFreeQ[#]&&With[{p=PrimePi/@First/@FactorInteger[#]},And@@IntegerQ/@(p/Min@@p)]&]

A343382 Number of strict integer partitions of n with either (1) no part dividing all the others or (2) no part divisible by all the others.

Original entry on oeis.org

1, 0, 0, 0, 0, 1, 1, 2, 3, 4, 6, 9, 9, 13, 18, 21, 26, 34, 38, 48, 57, 67, 81, 99, 110, 133, 157, 183, 211, 250, 282, 330, 380, 437, 502, 575, 648, 748, 852, 967, 1095, 1250, 1405, 1597, 1801, 2029, 2287, 2579, 2883, 3245, 3638, 4077, 4557, 5107, 5691, 6356

Offset: 0

Gus Wiseman, Apr 16 2021

nonn

Alternative name: Number of strict integer partitions of n that are either (1) empty, or (2) have smallest part not dividing all the others, or (3) have greatest part not divisible by all the others.

			The a(0) = 1 through a(11) = 9 partitions (empty columns indicated by dots):
  ()  .  .  .  .  (3,2)  (3,2,1)  (4,3)  (5,3)    (5,4)    (6,4)      (6,5)
                                  (5,2)  (4,3,1)  (7,2)    (7,3)      (7,4)
                                         (5,2,1)  (4,3,2)  (5,3,2)    (8,3)
                                                  (5,3,1)  (5,4,1)    (9,2)
                                                           (7,2,1)    (5,4,2)
                                                           (4,3,2,1)  (6,3,2)
                                                                      (6,4,1)
                                                                      (7,3,1)
                                                                      (5,3,2,1)

The first condition alone gives A341450.
The non-strict version is A343346 (Heinz numbers: A343343).
The second condition alone gives A343377.
The strict complement is A343378.
The version for "and" instead of "or" is A343379.
A000005 counts divisors.
A000009 counts strict partitions.
A000070 counts partitions with a selected part.
A006128 counts partitions with a selected position.
A015723 counts strict partitions with a selected part.
A018818 counts partitions into divisors (strict: A033630).
A167865 counts strict chains of divisors > 1 summing to n.
A339564 counts factorizations with a selected factor.
Cf. A083710, A097986, A130689, A200745, A264401, A338470, A339562, A342193, A343337, A343338, A343341, A343342.

Table[Length[Select[IntegerPartitions[n],#=={}||UnsameQ@@#&&!And@@IntegerQ/@(#/Min@@#)||UnsameQ@@#&&!And@@IntegerQ/@(Max@@#/#)&]],{n,0,30}]

cp's OEIS Frontend

A083710 Number of integer partitions of n with a part dividing all the other parts.

Views

Author

Keywords

Comments

Examples

References

Crossrefs

Programs

Maple

Mathematica

Formula

Extensions

A264401 Triangle read by rows: T(n,k) is the number of partitions of n having least gap k.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Maple

Mathematica

Formula

A097986 Number of strict integer partitions of n with a part dividing all the other parts.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Formula

Extensions

A130689 Number of partitions of n such that every part divides the largest part; a(0) = 1.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Formula

A341450 Number of strict integer partitions of n that are empty or have smallest part not dividing all the others.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula

A343341 Number of integer partitions of n with no part divisible by all the others.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A342193 Numbers with no prime index dividing all the other prime indices.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A343337 Numbers with no prime index divisible by all the other prime indices.