A000607 -id:A000607 - cp's OEIS frontend

A305631 Expansion of Product_{r not a perfect power} 1/(1 - x^r).

1, 0, 1, 1, 1, 2, 3, 3, 4, 5, 7, 8, 12, 13, 17, 21, 25, 32, 39, 46, 58, 68, 83, 99, 121, 141, 171, 201, 239, 282, 336, 391, 463, 541, 635, 741, 868, 1005, 1174, 1359, 1580, 1826, 2115, 2436, 2814, 3237, 3726, 4276, 4914, 5618, 6445, 7359, 8414, 9594, 10947, 12453

Offset: 0

Gus Wiseman, Jun 07 2018

nonn

a(n) is the number of integer partitions of n whose parts are not perfect powers (A001597, A007916).

			The a(9) = 5 integer partitions whose parts are not perfect powers are (72), (63), (522), (333), (3222).

Alois P. Heinz, Table of n, a(n) for n = 0..10000

Cf. A000607, A001597, A005117, A007916, A048165, A081362, A091050, A280954, A303707, A304779, A304817, A305614, A305630-A305635.

q:= n-> is(1=igcd(map(i-> i[2], ifactors(n)[2])[])):
a:= proc(n) option remember; `if`(n=0, 1, add(a(n-j)*add(
     `if`(q(d), d, 0), d=numtheory[divisors](j)), j=1..n)/n)
    end:
seq(a(n), n=0..60);  # Alois P. Heinz, Jun 07 2018

nn=100;
wadQ[n_]:=n>1&&GCD@@FactorInteger[n][[All,2]]==1;
ser=Product[1/(1-x^p),{p,Select[Range[nn],wadQ]}];
Table[SeriesCoefficient[ser,{x,0,n}],{n,0,nn}]

A321346 Number of integer partitions of n containing no prime powers > 1.

Original entry on oeis.org

1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 3, 3, 5, 5, 6, 7, 8, 8, 11, 11, 14, 16, 19, 19, 25, 26, 31, 34, 40, 41, 52, 54, 63, 69, 81, 86, 105, 109, 126, 137, 160, 169, 201, 211, 242, 264, 303, 320, 375, 396, 453, 490, 557, 590, 682, 726, 823, 888, 1002, 1065, 1219

Offset: 0

Gus Wiseman, Dec 11 2018

nonn

First differs from A285798 at a(30) = 52, A285798(30) = 51.

			The a(20) = 14 integer partitions:
  (20)
  (10,10)
  (14,6)
  (18,1,1)
  (12,6,1,1)
  (6,6,6,1,1)
  (10,6,1,1,1,1)
  (15,1,1,1,1,1)
  (14,1,1,1,1,1,1)
  (12,1,1,1,1,1,1,1,1)
  (6,6,1,1,1,1,1,1,1,1)
  (10,1,1,1,1,1,1,1,1,1,1)
  (6,1,1,1,1,1,1,1,1,1,1,1,1,1,1)
  (1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1)

Fausto A. C. Cariboni, Table of n, a(n) for n = 0..350

Cf. A000607, A000961, A001597, A002095, A023893, A023894, A096258, A246655, A320322, A321347, A321378, A321665, A322452, A322454.

nn=100;
ser=Product[If[PrimePowerQ[n],1,1/(1-x^n)],{n,nn}];
CoefficientList[Series[ser,{x,0,nn}],x]

A379300 Number of prime indices of n that are composite.

Original entry on oeis.org

0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 1, 0, 1, 0, 1, 0, 0, 1, 0, 1, 1, 0, 0, 0, 0, 0, 1, 0, 1, 1, 1, 0, 0, 1, 1, 0, 0, 1, 1, 0, 2, 0, 0, 1, 1, 0, 0, 1, 1, 1, 0, 0, 1, 0, 1, 0, 1, 0, 0, 0, 1, 1, 1, 0, 1, 1, 0, 1, 1, 1, 1, 0, 0, 0, 0, 1, 0, 1, 1

Offset: 1

Gus Wiseman, Dec 25 2024

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.

			The prime indices of 39 are {2,6}, so a(39) = 1.
The prime indices of 70 are {1,3,4}, so a(70) = 1.
The prime indices of 98 are {1,4,4}, so a(98) = 2.
The prime indices of 294 are {1,2,4,4}, a(294) = 2.
The prime indices of 1911 are {2,4,4,6}, so a(1911) = 3.
The prime indices of 2548 are {1,1,4,4,6}, so a(2548) = 3.

Positions of first appearances are A000420.
Positions of zero are A302540, counted by A034891 (strict A036497).
Positions of one are A379301, counted by A379302 (strict A379303).
A000040 lists the prime numbers, differences A001223.
A002808 lists the composite numbers, nonprimes A018252, differences A073783 or A065310.
A055396 gives least prime index, greatest A061395.
A056239 adds up prime indices, row sums of A112798, counted by A001222.
A066247 is the characteristic function for the composite numbers.
A377033 gives k-th differences of composite numbers, see A073445, A377034-A377037.
Other counts of prime indices:
- A087436 postpositive, see A038550.
- A257991 odd, see A000041, A000070, A066207, A349158.
- A257992 even, see A000009, A038348, A066208, A379317.
- A257994 prime, see A000586, A000607, A076610, A331386, A331915, A379304, A379305.
- A330944 nonprime, see A002095, A096258, A320628, A330945.
- A379306 squarefree, see A302478, A379308, A379309, A379316.
- A379310 nonsquarefree, see A114374, A256012, A379307.
- A379311 old prime, see A379312-A379315.
Cf. A023895, A113646, A175804, A204389, A320629, A376680, A378373, A378456.

prix[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
Table[Length[Select[prix[n],CompositeQ]],{n,100}]

Totally additive with a(prime(k)) = A066247(k).

A379311 Number of prime indices of n that are 1 or prime.

Original entry on oeis.org

0, 1, 1, 2, 1, 2, 0, 3, 2, 2, 1, 3, 0, 1, 2, 4, 1, 3, 0, 3, 1, 2, 0, 4, 2, 1, 3, 2, 0, 3, 1, 5, 2, 2, 1, 4, 0, 1, 1, 4, 1, 2, 0, 3, 3, 1, 0, 5, 0, 3, 2, 2, 0, 4, 2, 3, 1, 1, 1, 4, 0, 2, 2, 6, 1, 3, 1, 3, 1, 2, 0, 5, 0, 1, 3, 2, 1, 2, 0, 5, 4, 2, 1, 3, 2, 1, 1

Offset: 1

Gus Wiseman, Dec 27 2024

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.

			The prime indices of 39 are {2,6}, so a(39) = 1.
The prime indices of 70 are {1,3,4}, so a(70) = 2.
The prime indices of 98 are {1,4,4}, so a(98) = 1.
The prime indices of 294 are {1,2,4,4}, a(294) = 2.
The prime indices of 1911 are {2,4,4,6}, so a(1911) = 1.
The prime indices of 2548 are {1,1,4,4,6}, so a(2548) = 2.

Positions of first appearances are A000079.
These "old" primes are listed by A008578.
Positions of zero are A320629, counted by A023895 (strict A204389).
Positions of one are A379312, counted by A379314 (strict A379315).
Positions of nonzero terms are A379313.
A000040 lists the prime numbers, differences A001223.
A002808 lists the composite numbers, nonprimes A018252, differences A073783 or A065310.
A055396 gives least prime index, greatest A061395.
A056239 adds up prime indices, row sums of A112798, counted by A001222.
A080339 is the characteristic function for the old prime numbers.
A376682 gives k-th differences of old prime numbers, see A030016, A075526, A173390, A376683, A376855.
Other counts of prime indices:
- A257991 odd, see A000041, A000070, A066207, A349158.
- A257992 even, see A000009, A038348, A066208, A379317.
- A257994 prime, see A000586, A000607, A076610, A331386, A331915, A379304, A379305.
- A330944 nonprime, see A002095, A096258, A320628, A330945.
- A379306 squarefree, see A302478, A379308, A379309, A379316.
- A379310 nonsquarefree, see A114374, A256012, A379307.
Cf. A034891, A036234, A036497, A038550, A087436, A302540, A379300, A379301.

prix[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
Table[Length[Select[prix[n],#==1||PrimeQ[#]&]],{n,100}]

Totally additive with a(prime(k)) = A080339(k).

A379314 Number of integer partitions of n with a unique 1 or prime part.

Original entry on oeis.org

0, 1, 1, 1, 0, 2, 1, 3, 1, 4, 3, 8, 3, 10, 6, 14, 8, 22, 12, 30, 18, 40, 26, 58, 33, 76, 53, 103, 69, 140, 94, 185, 132, 239, 176, 323, 232, 417, 320, 536, 414, 704, 544, 900, 721, 1145, 936, 1481, 1198, 1867, 1571, 2363, 2001, 3003, 2550, 3768, 3275, 4712

Offset: 0

Gus Wiseman, Dec 28 2024

nonn

			The a(10) = 3 through a(15) = 14 partitions:
  (8,2)    (11)     (9,3)    (13)       (9,5)      (8,7)
  (9,1)    (6,5)    (10,2)   (7,6)      (12,2)     (10,5)
  (4,4,2)  (7,4)    (6,4,2)  (8,5)      (6,6,2)    (11,4)
           (8,3)             (10,3)     (8,4,2)    (12,3)
           (9,2)             (12,1)     (9,4,1)    (14,1)
           (10,1)            (5,4,4)    (4,4,4,2)  (6,5,4)
           (4,4,3)           (6,4,3)               (6,6,3)
           (6,4,1)           (6,6,1)               (7,4,4)
                             (8,4,1)               (8,4,3)
                             (4,4,4,1)             (8,6,1)
                                                   (9,4,2)
                                                   (10,4,1)
                                                   (4,4,4,3)
                                                   (6,4,4,1)

Andrew Howroyd, Table of n, a(n) for n = 0..1000

For all prime parts we have A000607 (strict A000586), ranks A076610.
For no prime parts we have A002095 (strict A096258), ranks A320628.
Ranked by A379312 = positions of 1 in A379311.
For a unique composite part we have A379302 (strict A379303), ranks A379301.
The strict case is A379315.
For squarefree instead of old prime we have A379308 (strict A379309), ranks A379316.
Considering 1 nonprime gives A379304 (strict A379305), ranks A331915.
A000040 lists the prime numbers, differences A001223.
A000041 counts integer partitions, strict A000009.
A002808 lists the composite numbers, nonprimes A018252, differences A073783 or A065310.
A376682 gives k-th differences of old primes.
Cf. A000070, A023895, A034891, A036497, A095195, A175804, A204389, A257994, A302540, A330944.

Table[Length[Select[IntegerPartitions[n],Count[#,_?(#==1||PrimeQ[#]&)]==1&]],{n,0,30}]

seq(n)={Vec(sum(k=1, n, if(isprime(k) || k==1, x^k))/prod(k=4, n, 1 - if(!isprime(k), x^k), 1 + O(x^n)), -n-1)} \\ Andrew Howroyd, Dec 28 2024

A338903 Number of integer partitions of the n-th squarefree semiprime into squarefree semiprimes.

Original entry on oeis.org

1, 1, 1, 1, 2, 2, 3, 3, 5, 4, 6, 5, 12, 14, 19, 22, 27, 36, 38, 51, 77, 86, 128, 141, 163, 163, 207, 233, 259, 260, 514, 657, 813, 983, 1010, 1215, 1255, 1720, 2112, 2256, 3171, 3370, 3499, 3864, 4103, 6292, 7313, 7620, 8374, 10650, 17579, 18462, 23034, 25180

Offset: 1

Gus Wiseman, Nov 24 2020

nonn

A squarefree semiprime (A006881) is a product of any two distinct prime numbers.

			The a(n) partitions for n = 1, 5, 7, 9, 10, 11, 13:
  6  21    26       34          35        38           46
     15,6  14,6,6   22,6,6      21,14     26,6,6       34,6,6
           10,10,6  14,14,6     15,14,6   22,10,6      26,14,6
                    14,10,10    15,10,10  14,14,10     21,15,10
                    10,6,6,6,6            14,6,6,6,6   22,14,10
                                          10,10,6,6,6  26,10,10
                                                       15,15,10,6
                                                       22,6,6,6,6
                                                       14,14,6,6,6
                                                       14,10,10,6,6
                                                       10,10,10,10,6
                                                       10,6,6,6,6,6,6

A002100 counts partitions into squarefree semiprimes.
A056768 uses primes instead of squarefree semiprimes.
A101048 counts partitions into semiprimes.
A338902 is the not necessarily squarefree version.
A339113 includes the Heinz numbers of these partitions.
A001358 lists semiprimes, with odd and even terms A046315 and A100484.
A006881 lists squarefree semiprimes, with odd and even terms A046388 and A100484.
A320656 counts factorizations into squarefree semiprimes.
A338898/A338912/A338913 give prime indices of semiprimes, with sum/difference/product A176504/A176506/A087794.
A338899, A270650, and A270652 give the prime indices of squarefree semiprimes.
Cf. A000041, A000607, A065516, A115392, A128301, A320655, A320732, A320892, A320912, A338915, A338916.

nn=100;
sqs=Select[Range[nn],SquareFreeQ[#]&&PrimeOmega[#]==2&];
Table[Length[IntegerPartitions[n,All,sqs]],{n,sqs}]

a(n) = A002100(A006881(n)).

A379302 Number of integer partitions of n with a unique composite part.

Original entry on oeis.org

0, 0, 0, 0, 1, 1, 3, 4, 7, 11, 16, 23, 32, 43, 58, 77, 100, 129, 164, 207, 259, 323, 398, 489, 595, 723, 872, 1049, 1255, 1495, 1774, 2097, 2472, 2903, 3399, 3969, 4618, 5362, 6210, 7173, 8268, 9506, 10907, 12488, 14271, 16278, 18532, 21061, 23893, 27064

Offset: 0

Gus Wiseman, Dec 25 2024

nonn

			The a(0) = 0 through a(9) = 11 partitions:
  .  .  .  .  (4)  (41)  (6)    (43)    (8)      (9)
                         (42)   (61)    (62)     (54)
                         (411)  (421)   (422)    (63)
                                (4111)  (431)    (81)
                                        (611)    (432)
                                        (4211)   (621)
                                        (41111)  (4221)
                                                 (4311)
                                                 (6111)
                                                 (42111)
                                                 (411111)

If all parts are composite we have A023895 (strict A204389), ranks A320629.
If no parts are composite we have A034891 (strict A036497), ranks A302540.
Ranked by A379301 = positions of 1 in A379300.
The strict case is A379303.
For a unique prime part we have A379304 (strict A379305), ranks A331915.
A000041 counts integer partitions, strict A000009.
A002808 lists the composite numbers, nonprimes A018252.
A066247 is the characteristic function for the composite numbers.
A377033 gives k-th differences of composite numbers.
Cf. A000070, A000586, A000607, A002095, A038348, A096258, A114374, A330944, A379308, A379309, A379314, A379315.

Table[Length[Select[IntegerPartitions[n],Count[#,_?CompositeQ]==1&]],{n,0,30}]

A379307 Positive integers whose prime indices include no squarefree numbers.

Original entry on oeis.org

1, 7, 19, 23, 37, 49, 53, 61, 71, 89, 97, 103, 107, 131, 133, 151, 161, 173, 193, 197, 223, 227, 229, 239, 251, 259, 263, 281, 307, 311, 337, 343, 359, 361, 371, 379, 383, 409, 419, 427, 433, 437, 457, 463, 479, 497, 503, 521, 523, 529, 541, 569, 593, 613, 623

Offset: 1

Gus Wiseman, Dec 27 2024

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.

			The terms together with their prime indices begin:
    1: {}
    7: {4}
   19: {8}
   23: {9}
   37: {12}
   49: {4,4}
   53: {16}
   61: {18}
   71: {20}
   89: {24}
   97: {25}
  103: {27}
  107: {28}
  131: {32}
  133: {4,8}
  151: {36}
  161: {4,9}
  173: {40}

Partitions of this type are counted by A114374, strict A256012.
Positions of zero in A379306.
For a unique squarefree part we have A379316, counted by A379308 (strict A379309).
A000040 lists the primes, differences A001223.
A005117 lists the squarefree numbers, differences A076259.
A008966 is the characteristic function for the squarefree numbers.
A013929 lists the nonsquarefree numbers, differences A078147.
A055396 gives least prime index, greatest A061395.
A056239 adds up prime indices, row sums of A112798, counted by A001222.
A061398 counts squarefree numbers between primes, zeros A068360.
A377038 gives k-th differences of squarefree numbers.
Other counts of prime indices:
- A257994 prime, see A002095, A096258, A320628, A331386, A331915, A379304, A379305.
- A257991 odd, see A000041, A000070, A066207, A349158.
- A257992 even, see A000009, A038348, A066208, A379317.
- A330944 nonprime, see A000586, A000607, A076610, A330945.
- A379300 composite, see A023895, A034891, A036497, A302540, A379301.
- A379310 nonsquarefree, see A302478.
- A379311 old prime, see A204389, A320629, A379312-A379315.
Cf. A000720, A013928, A038550, A057627, A068361, A070321, A071403, A072284, A087436, A112929, A377430, A378086.

prix[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
Select[Range[1000],Length[Select[prix[#],SquareFreeQ]]==0&]

A379310 Number of nonsquarefree prime indices of n.

Original entry on oeis.org

0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 1, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 1, 0, 1, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 2, 0, 0, 0, 1, 0, 0, 1, 1, 0, 0, 0, 1, 0, 1, 0, 0, 0, 0, 0, 1, 1, 1, 0, 0, 1, 0, 1, 1, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0

Offset: 1

Gus Wiseman, Dec 27 2024

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.

			The prime indices of 39 are {2,6}, so a(39) = 0.
The prime indices of 70 are {1,3,4}, so a(70) = 1.
The prime indices of 98 are {1,4,4}, so a(98) = 2.
The prime indices of 294 are {1,2,4,4}, a(294) = 2.
The prime indices of 1911 are {2,4,4,6}, so a(1911) = 2.
The prime indices of 2548 are {1,1,4,4,6}, so a(2548) = 2.

Positions of first appearances are A000420.
Positions of zero are A302478, counted by A073576 (strict A087188).
No squarefree parts: A379307, counted by A114374 (strict A256012).
One squarefree part: A379316, counted by A379308 (strict A379309).
A000040 lists the primes, differences A001223.
A005117 lists the squarefree numbers, differences A076259.
A008966 is the characteristic function for the squarefree numbers.
A013929 lists the nonsquarefree numbers, differences A078147.
A055396 gives least prime index, greatest A061395.
A056239 adds up prime indices, row sums of A112798, counted by A001222.
A061398 counts squarefree numbers between primes, zeros A068360.
A377038 gives k-th differences of squarefree numbers.
Other counts of prime indices:
- A257991 odd, see A000041, A000070, A066207, A349158.
- A257992 even, see A000009, A038348, A066208, A379317.
- A257994 prime, see A002095, A096258, A320628, A331386, A331915, A379304, A379305.
- A330944 nonprime, see A000586, A000607, A076610, A330945.
- A379300 composite, see A023895, A034891, A036497, A302540, A379301.
- A379311 old prime, see A204389, A320629, A379312-A379315.
Cf. A000720, A013928, A038550, A057627, A068361, A070321, A071403, A087436, A112929, A120327, A378086.

prix[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
Table[Length[Select[prix[n],Not@*SquareFreeQ]],{n,100}]

Totally additive with a(prime(k)) = A107078(k) = 1 - A008966(k).

A331634 a(n) is the greatest possible least part of any prime partition of n.

Original entry on oeis.org

2, 3, 2, 5, 3, 7, 3, 3, 5, 11, 5, 13, 7, 5, 5, 17, 7, 19, 7, 7, 11, 23, 11, 7, 13, 7, 11, 29, 13, 31, 13, 11, 17, 11, 17, 37, 19, 13, 17, 41, 19, 43, 13, 13, 23, 47, 19, 13, 19, 17, 23, 53, 23, 17, 19, 19, 29, 59, 29, 61, 31, 17, 23, 19, 29, 67, 31, 23, 29, 71

Offset: 2

David James Sycamore, Jan 23 2020

nonn

			a(12) = 5, because 5 is the largest of all minimal primes in partitions of 12 into prime parts: [2,2,2,2,2,2], [2,2,2,3,3], [3,3,3,3], [2,2,3,5], [2,5,5], [2,3,7], [5,7].

Alois P. Heinz, Table of n, a(n) for n = 2..12500

Cf. A000040, A000607, A001414, A100484, A001748.

b:= proc(n, p, t) option remember; `if`(n=0, 1, `if`(p>n, 0, (q->
      add(b(n-p*j, q, 1), j=1..n/p)*t^p+b(n, q, t))(nextprime(p))))
    end:
a:= n-> degree(b(n, 2, x)):
seq(a(n), n=2..100);  # Alois P. Heinz, Mar 13 2020

Array[If[PrimeQ@ #, #, Max@ IntegerPartitions[#, #/FactorInteger[#][[1, 1]], Prime@ Range@ PrimePi[# - 2]][[All, -1]] ] &, 60, 2] (* Michael De Vlieger, Jan 26 2020 *)
(* Second program: *)
b[n_, p_, t_] := b[n, p, t] = If[n == 0, 1, If[p > n, 0, Function[q, Sum[
     b[n - p*j, q, 1], {j, 1, n/p}]*t^p + b[n, q, t]][NextPrime[p]]]];
a[n_] := Exponent[b[n, 2, x], x];
a /@ Range[2, 100] (* Jean-François Alcover, Jun 04 2021, after Alois P. Heinz *)

For prime p>2, a(p) = a(2*p) = a(3*p) = p.

cp's OEIS Frontend

A305631 Expansion of Product_{r not a perfect power} 1/(1 - x^r).

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Maple

Mathematica

A321346 Number of integer partitions of n containing no prime powers > 1.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

A379300 Number of prime indices of n that are composite.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula

A379311 Number of prime indices of n that are 1 or prime.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula

A379314 Number of integer partitions of n with a unique 1 or prime part.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Mathematica

PARI

A338903 Number of integer partitions of the n-th squarefree semiprime into squarefree semiprimes.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula

A379302 Number of integer partitions of n with a unique composite part.

Views

Author

Keywords

Examples

Crossrefs

Programs

Mathematica

A379307 Positive integers whose prime indices include no squarefree numbers.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A379310 Number of nonsquarefree prime indices of n.