A326850 -id:A326850 - cp's OEIS frontend

A067538 Number of partitions of n in which the number of parts divides n.

1, 2, 2, 4, 2, 8, 2, 11, 9, 14, 2, 46, 2, 24, 51, 66, 2, 126, 2, 202, 144, 69, 2, 632, 194, 116, 381, 756, 2, 1707, 2, 1417, 956, 316, 2043, 5295, 2, 511, 2293, 9151, 2, 10278, 2, 8409, 14671, 1280, 2, 36901, 8035, 21524, 11614, 25639, 2, 53138, 39810, 85004

Offset: 1

Naohiro Nomoto, Jan 27 2002

Also sum of p(n,d) over the divisors d of n, where p(n,m) is the count of partitions of n in exactly m parts. - Wouter Meeussen, Jun 07 2009
From Gus Wiseman, Sep 24 2019: (Start)
Also the number of integer partitions of n whose maximum part divides n. The Heinz numbers of these partitions are given by A326836. For example, the a(1) = 1 through a(8) = 11 partitions are:
  (1)  (2)   (3)    (4)     (5)      (6)       (7)        (8)
       (11)  (111)  (22)    (11111)  (33)      (1111111)  (44)
                    (211)            (222)                (422)
                    (1111)           (321)                (431)
                                     (2211)               (2222)
                                     (3111)               (4211)
                                     (21111)              (22211)
                                     (111111)             (41111)
                                                          (221111)
                                                          (2111111)
                                                          (11111111)
(End)

			a(3)=2 because 3 is a prime; a(4)=4 because the five partitions of 4 are {4}, {3, 1}, {2, 2}, {2, 1, 1}, {1, 1, 1, 1}, and the number of parts in each of them divides 4 except for {2, 1, 1}.
From _Gus Wiseman_, Sep 24 2019: (Start)
The a(1) = 1 through a(8) = 11 partitions whose length divides their sum are the following. The Heinz numbers of these partitions are given by A316413.
  (1)  (2)   (3)    (4)     (5)      (6)       (7)        (8)
       (11)  (111)  (22)    (11111)  (33)      (1111111)  (44)
                    (31)             (42)                 (53)
                    (1111)           (51)                 (62)
                                     (222)                (71)
                                     (321)                (2222)
                                     (411)                (3221)
                                     (111111)             (3311)
                                                          (4211)
                                                          (5111)
                                                          (11111111)
(End)

Chai Wah Wu, Table of n, a(n) for n = 1..10000 (n = 1..500 from Wouter Meeussen, n = 501..1000 from Alois P. Heinz, n = 1001..5000 from David A. Corneth)
Eric W. Weisstein, Partition Function P
Wikipedia, Integer Partition

Cf. A000005, A000041, A143773, A298422, A298423, A298426.
The strict case is A102627.
Partitions with integer geometric mean are A067539.
Cf. A018818, A102627, A316413, A326622, A326836, A326843, A326850.

Do[p = IntegerPartitions[n]; l = Length[p]; c = 0; k = 1; While[k < l + 1, If[ IntegerQ[ n/Length[ p[[k]] ]], c++ ]; k++ ]; Print[c], {n, 1, 57}, All]
p[n_,k_]:=p[n,k]=p[n-1,k-1]+p[n-k,k];p[n_,k_]:=0/;k>n;p[n_,n_]:=1;p[n_,0]:=0
Table[Plus @@ (p[n,# ]&/ @ Divisors[n]),{n,36}] (* Wouter Meeussen, Jun 07 2009 *)
Table[Count[IntegerPartitions[n], q_ /; IntegerQ[Mean[q]]], {n, 50}]  (*Clark Kimberling, Apr 23 2019 *)

a(n) = {my(nb = 0); forpart(p=n, if ((vecsum(Vec(p)) % #p) == 0, nb++);); nb;} \\ Michel Marcus, Jul 03 2018

# uses A008284_T
from sympy import divisors
def A067538(n): return sum(A008284_T(n,d) for d in divisors(n,generator=True)) # Chai Wah Wu, Sep 21 2023

a(p) = 2 for all primes p.

Extended by Robert G. Wilson v, Oct 16 2002

A102627 Number of partitions of n into distinct parts in which the number of parts divides n.

Original entry on oeis.org

1, 1, 1, 2, 1, 4, 1, 4, 4, 5, 1, 15, 1, 7, 14, 17, 1, 28, 1, 40, 28, 11, 1, 99, 31, 13, 49, 99, 1, 186, 1, 152, 76, 17, 208, 425, 1, 19, 109, 699, 1, 584, 1, 433, 823, 23, 1, 1625, 437, 1140, 193, 746, 1, 2003, 1748, 2749, 244, 29, 1, 7404, 1, 31, 4158, 3258, 3766, 6307, 1

Offset: 1

Vladeta Jovovic, Feb 01 2005

			From _Gus Wiseman_, Sep 24 2019: (Start)
The a(1) = 1 through a(12) = 15 strict integer partitions whose average is an integer (A = 10, B = 11, C = 12):
  (1)  (2)  (3)  (4)   (5)  (6)    (7)  (8)   (9)    (A)   (B)  (C)
                 (31)       (42)        (53)  (432)  (64)       (75)
                            (51)        (62)  (531)  (73)       (84)
                            (321)       (71)  (621)  (82)       (93)
                                                     (91)       (A2)
                                                                (B1)
                                                                (543)
                                                                (642)
                                                                (651)
                                                                (732)
                                                                (741)
                                                                (831)
                                                                (921)
                                                                (5421)
                                                                (6321)
(End)

Alois P. Heinz, Table of n, a(n) for n = 1..1000

The BI-numbers of these partitions are given by A326669 (numbers whose binary indices have integer mean).
The non-strict case is A067538.
Strict partitions with integer geometric mean are A326625.
Strict partitions whose maximum divides their sum are A326850.
Cf. A018818, A033630, A316413, A326622, A326843, A326851.

a:= proc(m) option remember; local b; b:=
      proc(n, i, t) option remember; `if`(i*(i+1)/2Alois P. Heinz, Sep 25 2019

npdp[n_]:=Count[Select[IntegerPartitions[n],Length[#]==Length[ Union[ #]]&], ?(Divisible[n,Length[#]]&)]; Array[npdp,70] (* _Harvey P. Dale, Feb 12 2016 *)
a[m_] := a[m] = Module[{b}, b[n_, i_, t_] := b[n, i, t] = If[i(i+1)/2 < n, 0, If[n == 0, If[Mod[m, t] == 0, 1, 0], b[n, i - 1, t] + b[n - i, Min[n - i, i - 1], t + 1]]]; If[PrimeQ[m], 1, b[m, m, 0]]];
Array[a, 100] (* Jean-François Alcover, May 21 2021, after Alois P. Heinz *)

A326836 Heinz numbers of integer partitions whose maximum part divides their sum.

Original entry on oeis.org

2, 3, 4, 5, 7, 8, 9, 11, 12, 13, 16, 17, 19, 23, 25, 27, 29, 30, 31, 32, 36, 37, 40, 41, 43, 47, 48, 49, 53, 59, 61, 63, 64, 67, 70, 71, 73, 79, 81, 83, 84, 89, 97, 101, 103, 107, 108, 109, 112, 113, 121, 125, 127, 128, 131, 135, 137, 139, 144, 149, 150, 151

Offset: 1

Gus Wiseman, Jul 26 2019

nonn

The Heinz number of an integer partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k), so these are numbers whose maximum prime index divides their sum of prime indices.

The enumeration of these partitions by sum is given by A067538.

			The sequence of terms together with their prime indices begins:
    2: {1}
    3: {2}
    4: {1,1}
    5: {3}
    7: {4}
    8: {1,1,1}
    9: {2,2}
   11: {5}
   12: {1,1,2}
   13: {6}
   16: {1,1,1,1}
   17: {7}
   19: {8}
   23: {9}
   25: {3,3}
   27: {2,2,2}
   29: {10}
   30: {1,2,3}
   31: {11}
   32: {1,1,1,1,1}

Cf. A018818, A047993, A056239, A061395, A067538, A112798, A316413.

Cf. A326837, A326838, A326839/A326840, A326841, A326843, A326850.

primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
Select[Range[200],Divisible[Total[primeMS[#]],Max[primeMS[#]]]&]

A349156 Number of integer partitions of n whose mean is not an integer.

Original entry on oeis.org

1, 0, 0, 1, 1, 5, 3, 13, 11, 21, 28, 54, 31, 99, 111, 125, 165, 295, 259, 488, 425, 648, 933, 1253, 943, 1764, 2320, 2629, 2962, 4563, 3897, 6840, 6932, 9187, 11994, 12840, 12682, 21635, 25504, 28892, 28187, 44581, 42896, 63259, 66766, 74463, 104278, 124752

Offset: 0

Gus Wiseman, Nov 14 2021

nonn

Equivalently, partitions whose length does not divide their sum.

By conjugation, also the number of integer partitions of n with greatest part not dividing n.

			The a(3) = 1 through a(8) = 11 partitions:
  (21)  (211)  (32)    (2211)   (43)      (332)
               (41)    (3111)   (52)      (422)
               (221)   (21111)  (61)      (431)
               (311)            (322)     (521)
               (2111)           (331)     (611)
                                (421)     (22211)
                                (511)     (32111)
                                (2221)    (41111)
                                (3211)    (221111)
                                (4111)    (311111)
                                (22111)   (2111111)
                                (31111)
                                (211111)

Below, "!" means either enumerative or set theoretical complement.
The version for nonempty subsets is !A051293.
The complement is counted by A067538, ranked by A316413.
The geometric version is !A067539, strict !A326625, ranked by !A326623.
The strict case is !A102627.
The version for prime factors is A175352, complement A078175.
The version for distinct prime factors is A176587, complement A078174.
The ordered version (compositions) is !A271654, ranked by !A096199.
The multiplicative version (factorizations) is !A326622, geometric !A326028.
The conjugate is ranked by !A326836.
The conjugate strict version is !A326850.
These partitions are ranked by A348551.
A000041 counts integer partitions.
A326567/A326568 give the mean of prime indices, conjugate A326839/A326840.
A236634 counts unbalanced partitions, complement of A047993.
A327472 counts partitions not containing their mean, complement of A237984.
Cf. A001700, A074761, A098743, A143773, A175397, A175761, A298423, A326027, A326641, A326842, A326849, A327778.

Table[Length[Select[IntegerPartitions[n],!IntegerQ[Mean[#]]&]],{n,0,30}]

a(n > 0) = A000041(n) - A067538(n).

A340828 Number of strict integer partitions of n whose maximum part is a multiple of their length.

Original entry on oeis.org

1, 1, 2, 1, 2, 3, 3, 2, 4, 5, 6, 6, 7, 8, 11, 10, 13, 17, 18, 21, 24, 27, 30, 35, 39, 46, 53, 61, 68, 79, 87, 97, 110, 123, 139, 157, 175, 196, 222, 247, 278, 312, 347, 385, 433, 476, 531, 586, 651, 720, 800, 883, 979, 1085, 1200, 1325, 1464, 1614, 1777

Offset: 1

Gus Wiseman, Feb 01 2021

nonn

			The a(1) = 1 through a(16) = 10 partitions (A..G = 10..16):
  1  2  3   4  5   6    7   8   9    A     B    C    D    E     F      G
        21     41  42   43  62  63   64    65   84   85   86    87     A6
                   321  61      81   82    83   A2   A3   A4    A5     C4
                                621  631   A1   642  C1   C2    C3     E2
                                     4321  632  651  643  653   E1     943
                                           641  921  652  932   654    952
                                                     931  941   942    961
                                                          8321  951    C31
                                                                C21    8431
                                                                8421   8521
                                                                54321

FindStat, St000010: The length of the partition.
FindStat, St000147: The largest part of an integer partition.
FindStat, St000784: The maximum of the length and the largest part of the integer partition.

Note: A-numbers of Heinz-number sequences are in parentheses below.
The non-strict version is A168659 (A340609/A340610).
A018818 counts partitions into divisors (A326841).
A047993 counts balanced partitions (A106529).
A064173 counts partitions of positive/negative rank (A340787/A340788).
A067538 counts partitions whose length/max divides sum (A316413/A326836).
A072233 counts partitions by sum and length, with strict case A008289.
A096401 counts strict partition with length equal to minimum.
A102627 counts strict partitions with length dividing sum.
A326842 counts partitions whose length and parts all divide sum (A326847).
A326850 counts strict partitions whose maximum part divides sum.
A326851 counts strict partitions with length and maximum dividing sum.
A340829 counts strict partitions with Heinz number divisible by sum.
A340830 counts strict partitions with all parts divisible by length.
Cf. A003114, A006141, A064174, A117409, A143773 (A316428), A200750, A326843 (A326837), A330950 (A324851).

Table[Length[Select[IntegerPartitions[n],UnsameQ@@#&&Divisible[Max@@#,Length[#]]&]],{n,30}]

A340830 Number of strict integer partitions of n such that every part is a multiple of the number of parts.

Original entry on oeis.org

1, 1, 1, 1, 1, 2, 1, 2, 1, 3, 1, 3, 1, 4, 1, 4, 1, 6, 1, 5, 2, 6, 1, 8, 1, 7, 4, 7, 1, 12, 1, 8, 6, 9, 1, 16, 1, 10, 9, 11, 1, 21, 1, 12, 13, 12, 1, 28, 1, 13, 17, 16, 1, 33, 1, 19, 22, 15, 1, 45, 1, 16, 28, 25, 1, 47, 1, 28, 34, 18

Offset: 1

Gus Wiseman, Feb 02 2021

nonn

			The a(n) partitions for n = 1, 6, 10, 14, 18, 20, 24, 26, 30:
  1   6     10    14     18      20     24       26      30
      4,2   6,4   8,6    10,8    12,8   16,8     18,8    22,8
            8,2   10,4   12,6    14,6   18,6     20,6    24,6
                  12,2   14,4    16,4   20,4     22,4    26,4
                         16,2    18,2   22,2     24,2    28,2
                         9,6,3          14,10    14,12   16,14
                                        12,9,3   16,10   18,12
                                        15,6,3           20,10
                                                         15,9,6
                                                         18,9,3
                                                         21,6,3
                                                         15,12,3

Note: A-numbers of Heinz-number sequences are in parentheses below.
The non-strict case is A143773 (A316428).
The case where length divides sum also is A340827.
The version for factorizations is A340851.
Factorization of this type are counted by A340853.
A018818 counts partitions into divisors (A326841).
A047993 counts balanced partitions (A106529).
A067538 counts partitions whose length/max divide sum (A316413/A326836).
A072233 counts partitions by sum and length, with strict case A008289.
A102627 counts strict partitions whose length divides sum.
A326850 counts strict partitions whose maximum part divides sum.
A326851 counts strict partitions with length and maximum dividing sum.
A340828 counts strict partitions with length divisible by maximum.
A340829 counts strict partitions with Heinz number divisible by sum.
Cf. A114638, A168659, A326641, A326843 (A326837), A326849, A326852 (A326838), A330950 (A324851), A340852.

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

a(n) = Sum_{d|n} A008289(n/d, d).

A326839 Numerator of A056239(n)/A061395(n) where A056239 is sum of prime indices and A061395 is maximum prime index.

Original entry on oeis.org

0, 1, 1, 2, 1, 3, 1, 3, 2, 4, 1, 2, 1, 5, 5, 4, 1, 5, 1, 5, 3, 6, 1, 5, 2, 7, 3, 3, 1, 2, 1, 5, 7, 8, 7, 3, 1, 9, 4, 2, 1, 7, 1, 7, 7, 10, 1, 3, 2, 7, 9, 4, 1, 7, 8, 7, 5, 11, 1, 7, 1, 12, 2, 6, 3, 8, 1, 9, 11, 2, 1, 7, 1, 13, 8, 5, 9, 3, 1, 7, 4, 14, 1, 2, 10

Offset: 1

Gus Wiseman, Jul 26 2019

This is a dual form of the average of an integer partition specified by its Heinz number: A326567/A326568.

			The sequence of fractions begins: 0, 1, 1, 2, 1, 3/2, 1, 3, 2, 4/3, 1, 2, 1, 5/4, 5/3, 4, 1, 5/2, 1, 5/3.

Denominators are A326840.
Positions of 1's are A000040.
Cf. A001222, A047993, A056239, A061395, A112798, A316413.
Cf. A326567/A326568, A326836, A326845, A326848, A326850.

primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
Numerator[Table[Total[primeMS[n]]/Max@@primeMS[n],{n,100}]]

A326840 Denominator of A056239(n)/A061395(n).

Original entry on oeis.org

1, 1, 1, 1, 1, 2, 1, 1, 1, 3, 1, 1, 1, 4, 3, 1, 1, 2, 1, 3, 2, 5, 1, 2, 1, 6, 1, 2, 1, 1, 1, 1, 5, 7, 4, 1, 1, 8, 3, 1, 1, 4, 1, 5, 3, 9, 1, 1, 1, 3, 7, 3, 1, 2, 5, 4, 4, 10, 1, 3, 1, 11, 1, 1, 2, 5, 1, 7, 9, 1, 1, 2, 1, 12, 3, 4, 5, 2, 1, 3, 1, 13, 1, 1, 7

Offset: 1

Gus Wiseman, Jul 26 2019

This is a dual form of the average of an integer partition specified by its Heinz number: A326567/A326568.

			The sequence of fractions begins: 0, 1, 1, 2, 1, 3/2, 1, 3, 2, 4/3, 1, 2, 1, 5/4, 5/3, 4, 1, 5/2, 1, 5/3.

Positions of 1's are A326836.
Numerators are A326839.
Cf. A001222, A047993, A056239, A061395, A112798, A316413.
Cf. A326567/A326568, A326836, A326845, A326848, A326850.

primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
Denominator[Table[Total[primeMS[n]]/Max@@primeMS[n],{n,100}]]

A340827 Number of strict integer partitions of n into divisors of n whose length also divides n.

Original entry on oeis.org

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

Offset: 1

Gus Wiseman, Feb 01 2021

nonn

The first element not in A326715 that is however a Heinz number of these partitions is 273.

			The a(n) partitions for n = 6, 12, 24, 90, 84:
  6       12        24            90                      84
  3,2,1   6,4,2     12,8,4        45,30,15                42,28,14
          6,3,2,1   12,6,4,2      45,30,9,5,1             42,21,14,7
                    12,8,3,1      45,18,15,9,3            42,28,12,2
                    8,6,4,3,2,1   45,30,10,3,2            42,28,6,4,3,1
                                  45,18,15,10,2           42,28,7,4,2,1
                                  45,30,6,5,3,1           42,14,12,7,6,3
                                  45,30,9,3,2,1           42,21,12,4,3,2
                                  45,15,10,9,6,5          42,21,12,6,2,1
                                  45,18,10,9,5,3          42,21,14,4,2,1
                                  45,18,10,9,6,2          28,21,14,12,6,3
                                  45,18,15,6,5,1          28,21,14,12,7,2
                                  45,18,15,9,2,1          42,21,7,6,4,3,1
                                  30,18,15,10,6,5,3,2,1   42,14,12,7,4,3,2
                                                          42,14,12,7,6,2,1
                                                          28,21,14,12,4,3,2
                                                          28,21,14,12,6,2,1

David A. Corneth, Table of n, a(n) for n = 1..10000 (first 2519 terms from Antti Karttunen)
Antti Karttunen, Scheme program for computing this sequence

Note: A-numbers of Heinz-number sequences are in parentheses below.
The non-strict case is A326842 (A326847).
A018818 = partitions using divisors (A326841).
A047993 = balanced partitions (A106529).
A067538 = partitions whose length/maximum divides sum (A316413/A326836).
A072233 = partitions by sum and length, with strict case A008289.
A102627 = strict partitions whose length divides sum.
A326850 = strict partitions whose maximum part divides sum.
A326851 = strict partitions w/ length and max dividing sum.
A340828 = strict partitions w/ length divisible by max.
A340829 = strict partitions w/ Heinz number divisible by sum.
A340830 = strict partitions w/ parts divisible by length.
Cf. A064173, A143773 (A316428), A168659, A326843 (A326837), A326852, A330950 (A324851), A340851, A340853.

Table[Length[Select[IntegerPartitions[n,All,Divisors[n]],UnsameQ@@#&&Divisible[n,Length[#]]&]],{n,30}]

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

;; See the Links-section. - Antti Karttunen, Feb 22 2023

Data section extended up to a(105) by Antti Karttunen, Feb 22 2023

A340829 Number of strict integer partitions of n whose Heinz number (product of primes of parts) is divisible by n.

Original entry on oeis.org

1, 0, 1, 0, 1, 1, 2, 0, 0, 2, 3, 0, 4, 3, 4, 0, 8, 0, 10, 0, 11, 12, 19, 0, 0, 22, 0, 0, 46, 23, 56, 0, 64, 66, 86, 0, 125, 104, 135, 0, 196, 111, 230, 0, 0, 274, 353, 0, 0, 0, 563, 0, 687, 0, 974, 0, 1039, 1052, 1290, 0, 1473, 1511, 0, 0, 2707, 1614, 2664, 0

Offset: 1

Gus Wiseman, Feb 01 2021

nonn

The Heinz number of an integer partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k), giving a bijective correspondence between positive integers and integer partitions. The Heinz numbers of these partitions are squarefree numbers divisible by the sum of their prime indices.

			The a(6) = 1 through a(19) = 10 partitions (empty columns indicated by dots, A = 10, B = 11):
  321  43   .  .  631   65    .  76    941   A32    .  A7     .  B8
       421        4321  542      643   6431  6432      764       865
                        5321     652   7421  9321      872       874
                                 6421        54321     971       982
                                                       7532      A81
                                                       7541      8542
                                                       7631      8632
                                                       74321     8641
                                                                 8731
                                                                 85321

Note: A-numbers of Heinz-number sequences are in parentheses below.
Positions of zeros are 2 and A013929.
The non-strict version is A330950 (A324851) q.v.
A000009 counts strict partitions.
A003963 multiplies together prime indices.
A018818 counts partitions into divisors (A326841).
A047993 counts balanced partitions (A106529).
A056239 adds up prime indices.
A057568 counts partitions whose product is divisible by their sum (A326149).
A067538 counts partitions whose length/max divides sum (A316413/A326836).
A072233 counts partitions by sum and length, with strict case A008289.
A102627 counts strict partitions whose length divides sum.
A112798 lists the prime indices of each positive integer.
A120383 lists numbers divisible by all of their prime indices.
A324850 lists numbers divisible by the product of their prime indices.
A324925 counts partitions whose Heinz number is divisible by their product.
A326842 counts partitions whose parts and length all divide sum (A326847).
A326850 counts strict partitions whose maximum part divides sum.
A326851 counts strict partitions with length and maximum dividing sum.
A330952 counts partitions whose Heinz number is divisible by all parts.
A340828 counts strict partitions with length divisible by maximum.
A340830 counts strict partitions with parts divisible by length.
Cf. A052335, A064173, A064174, A096401, A143773 (A316428), A168659 (A340609/A340610), A326843 (A326837).

Table[Length[Select[IntegerPartitions[n],UnsameQ@@#&&Divisible[Times@@Prime/@#,n]&]],{n,30}]

cp's OEIS Frontend

A067538 Number of partitions of n in which the number of parts divides n.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Python

Formula

Extensions

A102627 Number of partitions of n into distinct parts in which the number of parts divides n.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Maple

Mathematica

A326836 Heinz numbers of integer partitions whose maximum part divides their sum.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A349156 Number of integer partitions of n whose mean is not an integer.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula

A340828 Number of strict integer partitions of n whose maximum part is a multiple of their length.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Mathematica

A340830 Number of strict integer partitions of n such that every part is a multiple of the number of parts.

Views

Author

Keywords

Examples

Crossrefs

Programs

Mathematica

Formula

A326839 Numerator of A056239(n)/A061395(n) where A056239 is sum of prime indices and A061395 is maximum prime index.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A326840 Denominator of A056239(n)/A061395(n).

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica