cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

Showing 1-3 of 3 results.

A380219 Number of integer partitions of n whose product is a proper multiple of n.

Original entry on oeis.org

0, 0, 0, 0, 0, 0, 0, 3, 3, 3, 0, 18, 0, 9, 21, 75, 0, 109, 0, 146, 83, 43, 0, 730, 224, 82, 806, 722, 0, 1782, 0, 4254, 733, 258, 1923, 9558, 0, 435, 1875, 16395, 0, 14625, 0, 9857, 33053, 1150, 0, 102070, 19391, 57326, 10157, 30702, 0, 207699, 47925, 200645
Offset: 1

Views

Author

Gus Wiseman, Jan 21 2025

Keywords

Examples

			The partition y = (4,3,3,2) has product 72, which is a multiple of 12, so y is counted under a(12).
The a(8) = 3 through a(14) = 9 partitions:
  (44)    (63)    (532)   .  (66)       .  (743)
  (422)   (333)   (541)      (543)         (752)
  (2222)  (3321)  (5221)     (642)         (761)
                             (831)         (7322)
                             (4332)        (7421)
                             (4431)        (72221)
                             (5322)        (73211)
                             (6222)        (74111)
                             (6321)        (722111)
                             (6411)
                             (33222)
                             (43221)
                             (43311)
                             (62211)
                             (322221)
                             (332211)
                             (432111)
                             (3222111)

Crossrefs

The non-proper version is A057568, case of equality A001055.
The case of strict partitions is A379733 - 1.
The case of partitions without 1's is A379734 - 1.
These partitions are ranked by A380216.
A000041 counts integer partitions, strict A000009.
A379666 counts partitions by sum and product.
Counting and ranking multisets by comparing sum and product:
- same: A001055, ranks A301987
- multiple: A057567, ranks A326155
- divisor: A057568 (strict A379733), ranks A326149, see A379319, A380217.
- greater than: A096276 shifted right, ranks A325038
- greater or equal: A096276, ranks A325044
- less than: A114324, ranks A325037, see A318029, A379720
- less or equal: A319005, ranks A379721, see A025147
- different: A379736, ranks A379722, see A111133
Cf. A003963, A028422, A318950, A319000, A319916, A326152, A326156, A379320, A379671, A379735, A380218, A380221.

Programs

  • Mathematica
    Table[Length[Select[IntegerPartitions[n],Divisible[Times@@#,n]&&UnsameQ[Times@@#,n]&]],{n,30}]
  • PARI
    a(n) = my(nb=0); forpart(p=n, my(vp=vecprod(Vec(p))); if (!(vp%n) && (vp>n), nb++)); nb; \\ Michel Marcus, Jan 22 2025

Formula

a(n) = A057568(n) - A001055(n).

A379844 Squarefree numbers x such that the product of prime indices of x is a multiple of the sum of prime indices of x.

Original entry on oeis.org

2, 3, 5, 7, 11, 13, 17, 19, 23, 29, 30, 31, 37, 41, 43, 47, 53, 59, 61, 65, 67, 71, 73, 79, 83, 89, 97, 101, 103, 107, 109, 113, 127, 131, 137, 139, 149, 151, 154, 157, 163, 165, 167, 173, 179, 181, 190, 191, 193, 197, 199, 211, 223, 227, 229, 233, 239, 241
Offset: 1

Views

Author

Gus Wiseman, Jan 19 2025

Keywords

Comments

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 sum and product of prime indices are A056239 and A003963 respectively.

Crossrefs

Squarefree case of A326149.
For nonprime instead of squarefree we have A326150.
The non-prime case is A326158.
Partitions of this type are counted by A379733, see A379735.
The even case is A379845, counted by A380221.
A003963 multiplies together prime indices.
A005117 lists the squarefree numbers.
A056239 adds up prime indices.
Counting and ranking multisets by comparing sum and product:
- same: A001055, ranks A301987
- divisible: A057567, ranks A326155
- divisor: A057568, ranks A326149
- greater than: A096276 shifted right, ranks A325038
- greater or equal: A096276, ranks A325044
- less than: A114324, ranks A325037, see A318029, A379720
- less or equal: A319005, ranks A379721, see A025147
- different: A379736, ranks A379722, see A111133
Cf. A000720, A001222, A036844, A112798, A324850, A324851, A324925, A326151, A326153/A326154, A326156, A326157.

Programs

  • Mathematica
    prix[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
Select[Range[2,100],SquareFreeQ[#]&&Divisible[Times@@prix[#],Plus@@prix[#]]&]

Formula

Satisfies A056239(a(n))|A003963(a(n)).

A379845 Even squarefree numbers x such that the product of prime indices of x is a multiple of the sum of prime indices of x.

Original entry on oeis.org

2, 30, 154, 190, 390, 442, 506, 658, 714, 874, 1110, 1118, 1254, 1330, 1430, 1786, 1794, 1798, 1958, 2310, 2414, 2442, 2470, 2730, 2958, 3034, 3066, 3266, 3390, 3534, 3710, 3770, 3874, 3914, 4042, 4466, 4526, 4758, 4930, 5106, 5434, 5474, 5642, 6090, 6106
Offset: 1

Views

Author

Gus Wiseman, Jan 20 2025

Keywords

Comments

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 sum and product of prime indices are A056239 and A003963 respectively.

Examples

			The terms together with their prime indices begin:
     2: {1}
    30: {1,2,3}
   154: {1,4,5}
   190: {1,3,8}
   390: {1,2,3,6}
   442: {1,6,7}
   506: {1,5,9}
   658: {1,4,15}
   714: {1,2,4,7}
   874: {1,8,9}
  1110: {1,2,3,12}

Crossrefs

Even squarefree case of A326149.
For nonprime instead of even we have A326158.
Squarefree case of A379319.
Even case of A379844.
Partitions of this type are counted by A380221, see A379733, A379735.
A003963 multiplies together prime indices.
A005117 lists the squarefree numbers.
A056239 adds up prime indices.
Counting and ranking multisets by comparing sum and product:
- same: A001055, ranks A301987
- multiple: A057567, ranks A326155
- divisor: A057568, ranks A326149
- greater than: A096276 shifted right, ranks A325038
- greater or equal: A096276, ranks A325044
- less than: A114324, ranks A325037, see A318029, A379720
- less or equal: A319005, ranks A379721, see A025147
- different: A379736, ranks A379722, see A111133
Cf. A000720, A001222, A112798, A175508, A324850, A324851, A326150, A326151, A326153/A326154, A326156, A326157.

Programs

  • Mathematica
    Select[Range[2,1000],EvenQ[#]&&SquareFreeQ[#]&&Divisible[Times@@prix[#],Plus@@prix[#]]&]
Showing 1-3 of 3 results.

Started in 1964 by Neil J. A. Sloane | Maintained by The OEIS Foundation Inc.

Content is available under The OEIS End-User License Agreement.