A101271 -id:A101271 - cp's OEIS frontend

A339672 Number of partitions of n into 7 distinct and relatively prime parts.

1, 1, 2, 3, 5, 7, 11, 15, 21, 28, 38, 49, 65, 82, 105, 131, 164, 201, 248, 300, 364, 436, 522, 618, 733, 860, 1009, 1175, 1366, 1579, 1823, 2093, 2398, 2738, 3117, 3539, 4006, 4526, 5095, 5731, 6419, 7190, 8018, 8946, 9932, 11044, 12213, 13534, 14912, 16475, 18089, 19928, 21808

Offset: 28

Ilya Gutkovskiy, Feb 23 2021

nonn

Cf. A023022, A023027, A023032, A078374, A101271, A340719, A341868, A341870, A341912, A341913, A341914.

nmax = 80; CoefficientList[Series[Sum[MoebiusMu[k] x^(28 k)/Product[1 - x^(j k), {j, 1, 7}], {k, 1, nmax}], {x, 0, nmax}], x] // Drop[#, 28] &

G.f.: Sum_{k>=1} mu(k)* x^(28*k) / Product_{j=1..7} (1 - x^(j*k)).

A340719 Number of partitions of n into 8 distinct and relatively prime parts.

Original entry on oeis.org

1, 1, 2, 3, 5, 7, 11, 15, 22, 29, 40, 52, 70, 89, 116, 146, 186, 230, 288, 352, 434, 525, 638, 764, 919, 1090, 1297, 1527, 1801, 2104, 2462, 2857, 3319, 3828, 4417, 5066, 5811, 6630, 7563, 8588, 9747, 11018, 12447, 14012, 15760, 17674, 19798, 22122, 24688, 27493, 30573, 33940, 37616

Offset: 36

Ilya Gutkovskiy, Feb 23 2021

nonn

Cf. A023022, A023028, A023033, A078374, A101271, A339672, A341868, A341870, A341912, A341913, A341914.

nmax = 88; CoefficientList[Series[Sum[MoebiusMu[k] x^(36 k)/Product[1 - x^(j k), {j, 1, 8}], {k, 1, nmax}], {x, 0, nmax}], x] // Drop[#, 36] &

G.f.: Sum_{k>=1} mu(k)* x^(36*k) / Product_{j=1..8} (1 - x^(j*k)).

A341868 Number of partitions of n into 4 distinct and relatively prime parts.

Original entry on oeis.org

1, 1, 2, 3, 5, 6, 9, 11, 15, 18, 22, 27, 33, 39, 45, 54, 61, 72, 79, 94, 101, 120, 127, 149, 158, 185, 189, 225, 231, 267, 274, 321, 319, 378, 377, 435, 439, 511, 495, 588, 577, 661, 656, 764, 729, 863, 836, 954, 939, 1089, 1022, 1215, 1165, 1323, 1289, 1492, 1392, 1650, 1566, 1776, 1715

Offset: 10

Ilya Gutkovskiy, Feb 23 2021

nonn

Cf. A000742, A023022, A023024, A078374, A101271, A339672, A340719, A341870, A341912, A341913, A341914.

nmax = 70; CoefficientList[Series[Sum[MoebiusMu[k] x^(10 k)/Product[1 - x^(j k), {j, 1, 4}], {k, 1, nmax}], {x, 0, nmax}], x] // Drop[#, 10] &

G.f.: Sum_{k>=1} mu(k)* x^(10*k) / Product_{j=1..4} (1 - x^(j*k)).

A341870 Number of partitions of n into 6 distinct and relatively prime parts.

Original entry on oeis.org

1, 1, 2, 3, 5, 7, 11, 14, 20, 26, 35, 44, 58, 71, 90, 110, 136, 163, 199, 235, 282, 330, 391, 453, 532, 610, 709, 808, 931, 1052, 1206, 1353, 1540, 1718, 1945, 2158, 2432, 2682, 3009, 3305, 3692, 4035, 4493, 4891, 5427, 5883, 6510, 7033, 7758, 8352, 9192, 9862, 10829, 11584, 12687, 13539

Offset: 21

Ilya Gutkovskiy, Feb 23 2021

nonn

Cf. A023022, A023026, A023031, A078374, A101271, A339672, A340719, A341868, A341912, A341913, A341914.

nmax = 76; CoefficientList[Series[Sum[MoebiusMu[k] x^(21 k)/Product[1 - x^(j k), {j, 1, 6}], {k, 1, nmax}], {x, 0, nmax}], x] // Drop[#, 21] &

G.f.: Sum_{k>=1} mu(k)* x^(21*k) / Product_{j=1..6} (1 - x^(j*k)).

A341912 Number of partitions of n into 5 distinct and relatively prime parts.

Original entry on oeis.org

1, 1, 2, 3, 5, 7, 10, 13, 18, 23, 30, 37, 47, 57, 70, 83, 101, 118, 141, 162, 192, 218, 255, 286, 333, 370, 427, 470, 540, 590, 673, 730, 831, 894, 1014, 1085, 1224, 1305, 1469, 1552, 1747, 1841, 2057, 2163, 2418, 2520, 2818, 2933, 3256, 3388, 3765, 3879, 4319, 4452, 4914, 5068

Offset: 15

Ilya Gutkovskiy, Feb 23 2021

nonn

Cf. A000743, A023022, A023025, A078374, A101271, A339672, A340719, A341868, A341870, A341913, A341914.

nmax = 70; CoefficientList[Series[Sum[MoebiusMu[k] x^(15 k)/Product[1 - x^(j k), {j, 1, 5}], {k, 1, nmax}], {x, 0, nmax}], x] // Drop[#, 15] &

G.f.: Sum_{k>=1} mu(k)* x^(15*k) / Product_{j=1..5} (1 - x^(j*k)).

a(n) <= A001401(n-15). - R. J. Mathar, Feb 28 2021

A341913 Number of partitions of n into 9 distinct and relatively prime parts.

Original entry on oeis.org

1, 1, 2, 3, 5, 7, 11, 15, 22, 30, 41, 54, 73, 94, 123, 157, 201, 252, 318, 393, 488, 598, 732, 887, 1076, 1291, 1549, 1845, 2194, 2592, 3060, 3589, 4206, 4904, 5708, 6615, 7657, 8824, 10156, 11648, 13338, 15224, 17354, 19720, 22380, 25330, 28629, 32277, 36347, 40829, 45812, 51291, 57358

Offset: 45

Ilya Gutkovskiy, Feb 23 2021

nonn

Cf. A023022, A023029, A023034, A078374, A101271, A339672, A340719, A341868, A341870, A341912, A341914.

nmax = 97; CoefficientList[Series[Sum[MoebiusMu[k] x^(45 k)/Product[1 - x^(j k), {j, 1, 9}], {k, 1, nmax}], {x, 0, nmax}], x] // Drop[#, 45] &

G.f.: Sum_{k>=1} mu(k)* x^(45*k) / Product_{j=1..9} (1 - x^(j*k)).

A338333 Number of relatively prime 3-part strict integer partitions of n with no 1's.

Original entry on oeis.org

0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 2, 2, 4, 4, 7, 6, 10, 8, 14, 12, 18, 16, 24, 18, 30, 25, 34, 30, 44, 31, 52, 42, 56, 49, 69, 50, 80, 64, 83, 70, 102, 71, 114, 90, 112, 100, 140, 98, 153, 117, 153, 132, 184, 128, 195, 154, 196, 169, 234, 156, 252, 196, 241

Offset: 0

Gus Wiseman, Oct 30 2020

nonn

The Heinz numbers of these partitions are the intersection of A005117 (strict), A005408 (no 1's), A014612 (length 3), and A289509 (relatively prime).

			The a(9) = 1 through a(19) = 14 triples (A = 10, B = 11, C = 12, D = 13, E = 14):
  432   532   542   543   643   653   654   754   764   765   865
              632   732   652   743   753   763   854   873   874
                          742   752   762   853   863   954   964
                          832   932   843   943   872   972   973
                                      852   952   953   A53   982
                                      942   B32   962   B43   A54
                                      A32         A43   B52   A63
                                                  A52   D32   A72
                                                  B42         B53
                                                  C32         B62
                                                              C43
                                                              C52
                                                              D42
                                                              E32

A001399(n-9) does not require relative primality.
A005117 /\ A005408 /\ A014612 /\ A289509 gives the Heinz numbers.
A055684 is the 2-part version.
A284825 counts the case that is also pairwise non-coprime.
A337452 counts these partitions of any length.
A337563 is the pairwise coprime instead of relatively prime version.
A337605 is the pairwise non-coprime instead of relative prime version.
A338332 is the not necessarily strict version.
A338333*6 is the ordered version.
A000837 counts relatively prime partitions.
A008284 counts partitions by sum and length.
A078374 counts relatively prime strict partitions.
A101271 counts 3-part relatively prime strict partitions.
A220377 counts 3-part pairwise coprime strict partitions.
A337601 counts 3-part partitions whose distinct parts are pairwise coprime.
Cf. A000010, A000217, A000741, A023022, A082024, A302698, A307719, A337450, A337599, A338468.

Table[Length[Select[IntegerPartitions[n,{3}],UnsameQ@@#&&!MemberQ[#,1]&&GCD@@#==1&]],{n,0,30}]

A338332 Number of relatively prime 3-part integer partitions of n with no 1's.

Original entry on oeis.org

0, 0, 0, 0, 0, 0, 0, 1, 1, 2, 2, 5, 3, 8, 6, 9, 9, 16, 10, 21, 15, 22, 20, 33, 21, 38, 30, 41, 35, 56, 34, 65, 49, 64, 56, 79, 55, 96, 72, 93, 77, 120, 76, 133, 99, 122, 110, 161, 105, 172, 126, 167, 143, 208, 136, 213, 165, 212, 182, 261, 163, 280, 210, 257

Offset: 0

Gus Wiseman, Oct 30 2020

nonn

The Heinz numbers of these partitions are the intersection of A005408 (no 1's), A014612 (length 3), and A289509 (relatively prime).

			The a(7) = 1 through a(17) = 16 triples (A = 10, B = 11, C = 12, D = 13):
  322   332   432   433   443   543   544   554   654   655   665
              522   532   533   552   553   653   744   754   755
                          542   732   643   743   753   763   764
                          632         652   752   762   772   773
                          722         733   833   843   853   854
                                      742   932   852   943   863
                                      832         942   952   872
                                      922         A32   A33   944
                                                  B22   B32   953
                                                              962
                                                              A43
                                                              A52
                                                              B33
                                                              B42
                                                              C32
                                                              D22

A001399(n-6) does not require relative primality.
A005408 /\ A014612 /\ A289509 gives the Heinz numbers of these partitions.
A055684 is the 2-part version.
A284825 counts the case that is also pairwise non-coprime.
A302698 counts these partitions of any length.
A337563 is the pairwise coprime instead of relatively prime version.
A338333 is the strict version.
A000837 counts relatively prime partitions, with strict case A078374.
A008284 counts partitions by sum and length.
Cf. A000010, A000741, A023022, A078374, A082024, A101271, A307719, A337450, A337599, A337600, A337601.

Table[Length[Select[IntegerPartitions[n,{3}],!MemberQ[#,1]&&GCD@@#==1&]],{n,0,30}]

A338469 Products of three odd prime numbers of odd index.

Original entry on oeis.org

125, 275, 425, 575, 605, 775, 935, 1025, 1175, 1265, 1331, 1445, 1475, 1675, 1705, 1825, 1955, 2057, 2075, 2255, 2425, 2575, 2585, 2635, 2645, 2725, 2783, 3175, 3179, 3245, 3425, 3485, 3565, 3685, 3725, 3751, 3925, 3995, 4015, 4175, 4301, 4475, 4565, 4715

Offset: 1

Gus Wiseman, Nov 08 2020

nonn

Also Heinz numbers of integer partitions with 3 parts, all of which are odd and > 1. These partitions are counted by A001399.

			The sequence of terms together with their prime indices begins:
     125: {3,3,3}     1825: {3,3,21}    3425: {3,3,33}
     275: {3,3,5}     1955: {3,7,9}     3485: {3,7,13}
     425: {3,3,7}     2057: {5,5,7}     3565: {3,9,11}
     575: {3,3,9}     2075: {3,3,23}    3685: {3,5,19}
     605: {3,5,5}     2255: {3,5,13}    3725: {3,3,35}
     775: {3,3,11}    2425: {3,3,25}    3751: {5,5,11}
     935: {3,5,7}     2575: {3,3,27}    3925: {3,3,37}
    1025: {3,3,13}    2585: {3,5,15}    3995: {3,7,15}
    1175: {3,3,15}    2635: {3,7,11}    4015: {3,5,21}
    1265: {3,5,9}     2645: {3,9,9}     4175: {3,3,39}
    1331: {5,5,5}     2725: {3,3,29}    4301: {5,7,9}
    1445: {3,7,7}     2783: {5,5,9}     4475: {3,3,41}
    1475: {3,3,17}    3175: {3,3,31}    4565: {3,5,23}
    1675: {3,3,19}    3179: {5,7,7}     4715: {3,9,13}
    1705: {3,5,11}    3245: {3,5,17}    4775: {3,3,43}

Robert Israel, Table of n, a(n) for n = 1..10000

A046316 allows all primes (strict: A046389).
A338471 allows all odd primes (strict: A307534).
A338556 is the version for evens (strict: A338557).
A000009 counts partitions into odd parts (strict: A000700).
A001399(n-3) counts 3-part partitions (strict: A001399(n-6)).
A005408 lists odds (strict: A056911).
A008284 counts partitions by sum and length.
A014311 is a ranking of 3-part compositions (strict: A337453).
A014612 lists Heinz numbers of 3-part partitions (strict: A007304).
A023023 counts 3-part relatively prime partitions (strict: A101271).
A066207 lists numbers with all even prime indices (strict: A258117).
A066208 lists numbers with all odd prime indices (strict: A258116).
A075818 lists even Heinz numbers of 3-part partitions (strict: A075819).
A285508 lists Heinz numbers of non-strict 3-part partitions.
Cf. A001221, A001222, A002620, A005117, A037144, A056239, A112798.

N:= 10000: # for terms <= N
P0:= [seq(ithprime(i),i=3..numtheory:-pi(floor(N/25)),2)]:
sort(select(`<=`,[seq(seq(seq(P0[i]*P0[j]*P0[k],k=1..j),j=1..i),i=1..nops(P0))], N)); # Robert Israel, Nov 12 2020

Select[Range[1,1000,2],PrimeOmega[#]==3&&OddQ[Times@@PrimePi/@First/@FactorInteger[#]]&]

isok(m) = my(f=factor(m)); (m%2) && (bigomega(f)==3) && (#select(x->!(x%2), apply(primepi, f[,1]~)) == 0); \\ Michel Marcus, Nov 10 2020

from math import isqrt
from sympy import primepi, primerange, integer_nthroot
def A338469(n):
    def bisection(f,kmin=0,kmax=1):
        while f(kmax) > kmax: kmax <<= 1
        while kmax-kmin > 1:
            kmid = kmax+kmin>>1
            if f(kmid) <= kmid:
                kmax = kmid
            else:
                kmin = kmid
        return kmax
    def f(x): return int(n+x-sum((primepi(x//(k*m))+1>>1)-(b+1>>1)+1 for a,k in filter(lambda x:x[0]&1,enumerate(primerange(5,integer_nthroot(x,3)[0]+1),3)) for b,m in filter(lambda x:x[0]&1,enumerate(primerange(k,isqrt(x//k)+1),a))))
    return bisection(f,n,n) # Chai Wah Wu, Oct 18 2024

A338553 Number of integer partitions of n that are either constant or relatively prime.

Original entry on oeis.org

1, 1, 2, 3, 5, 7, 10, 15, 20, 29, 37, 56, 68, 101, 122, 170, 213, 297, 352, 490, 587, 778, 948, 1255, 1488, 1953, 2337, 2983, 3585, 4565, 5393, 6842, 8123, 10088, 12015, 14865, 17534, 21637, 25527, 31085, 36701, 44583, 52262, 63261, 74175, 88936, 104305, 124754

Offset: 0

Gus Wiseman, Nov 03 2020

nonn

The Heinz numbers of these partitions are given by A338555 = A000961 \/ A289509. 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 a(1) = 1 through a(7) = 15 partitions:
  (1)  (2)   (3)    (4)     (5)      (6)       (7)
       (11)  (21)   (22)    (32)     (33)      (43)
             (111)  (31)    (41)     (51)      (52)
                    (211)   (221)    (222)     (61)
                    (1111)  (311)    (321)     (322)
                            (2111)   (411)     (331)
                            (11111)  (2211)    (421)
                                     (3111)    (511)
                                     (21111)   (2221)
                                     (111111)  (3211)
                                               (4111)
                                               (22111)
                                               (31111)
                                               (211111)
                                               (1111111)

A023022(n) + A059841(n) is the 2-part version.
A078374(n) + 1 is the strict case (n > 1).
A338554 counts the complement, with Heinz numbers A338552.
A338555 gives the Heinz numbers of these partitions.
A000005 counts constant partitions, with Heinz numbers A000961.
A000837 counts relatively prime partitions, with Heinz numbers A289509.
A282750 counts relatively prime partitions by sum and length.
Cf. A000010, A007360, A008284, A023023, A051424, A101271, A101391, A302698, A304712, A327516, A337664.

Table[Length[Select[IntegerPartitions[n],SameQ@@#||GCD@@#==1&]],{n,0,30}]

For n > 0, a(n) = A000005(n) + A000837(n) - 1.

cp's OEIS Frontend

A339672 Number of partitions of n into 7 distinct and relatively prime parts.

Views

Author

Keywords

Crossrefs

Programs

Mathematica

Formula

A340719 Number of partitions of n into 8 distinct and relatively prime parts.

Views

Author

Keywords

Crossrefs

Programs

Mathematica

Formula

A341868 Number of partitions of n into 4 distinct and relatively prime parts.

Views

Author

Keywords

Crossrefs

Programs

Mathematica

Formula

A341870 Number of partitions of n into 6 distinct and relatively prime parts.

Views

Author

Keywords

Crossrefs

Programs

Mathematica

Formula

A341912 Number of partitions of n into 5 distinct and relatively prime parts.

Views

Author

Keywords

Crossrefs

Programs

Mathematica

Formula

A341913 Number of partitions of n into 9 distinct and relatively prime parts.

Views

Author

Keywords

Crossrefs

Programs

Mathematica

Formula

A338333 Number of relatively prime 3-part strict integer partitions of n with no 1's.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A338332 Number of relatively prime 3-part integer partitions of n with no 1's.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A338469 Products of three odd prime numbers of odd index.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Maple

Mathematica

PARI

Python