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.

Previous Showing 11-14 of 14 results.

A339619 Number of integer partitions of n with no 1's and a part divisible by all the other parts.

Original entry on oeis.org

1, 0, 1, 1, 2, 1, 4, 1, 5, 3, 7, 2, 13, 2, 13, 9, 17, 6, 27, 7, 33, 19, 35, 16, 58, 22, 58, 39, 75, 37, 108, 44, 117, 75, 132, 88, 190, 94, 199, 147, 250, 153, 322, 180, 363, 271, 405, 286, 544, 339, 601, 458, 699, 503, 868, 608, 990, 777, 1113, 865, 1422, 993
Offset: 0

Views

Author

Gus Wiseman, Apr 18 2021

Keywords

Comments

Alternative name: Number of integer partitions of n with no 1's that are empty or have greatest part divisible by all the other parts.

Examples

			The a(6) = 4 through a(16) = 17 partitions (A..G = 10..16):
  6    7  8     9    A      B    C       D     E        F      G
  33      44    63   55     632  66      6322  77       A5     88
  42      62    333  82          84            C2       C3     C4
  222     422        442         93            662      555    E2
          2222       622         A2            842      663    844
                     4222        444           A22      933    C22
                     22222       633           4442     6333   4444
                                 822           6332     33333  6622
                                 3333          8222     63222  8422
                                 4422          44222           A222
                                 6222          62222           44422
                                 42222         422222          63322
                                 222222        2222222         82222
                                                               442222
                                                               622222
                                                               4222222
                                                               22222222

Crossrefs

The dual version is A083711.
The version with 1's allowed is A130689.
The strict case is A339660.
The Heinz numbers of these partitions are the odd complement of A343337.
The strict case with 1's allowed is A343347.
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, A130714, A338470, A343341, A343342, A343346, A343377, A343382.

Programs

  • Mathematica
    Table[If[n==0,1,Length[Select[IntegerPartitions[n],FreeQ[#,1]&&Or@@And@@IntegerQ/@(Max@@#/#)&]]],{n,0,30}]

A343340 Numbers with a prime index dividing all the other prime indices, but with no prime index divisible by all the other prime indices.

Original entry on oeis.org

30, 60, 66, 70, 90, 102, 110, 120, 132, 138, 140, 150, 154, 170, 180, 182, 186, 190, 198, 204, 210, 220, 238, 240, 246, 264, 270, 273, 276, 280, 282, 286, 290, 300, 306, 308, 310, 322, 330, 340, 350, 354, 360, 364, 372, 374, 380, 396, 402, 406, 408, 410, 414
Offset: 1

Views

Author

Gus Wiseman, Apr 15 2021

Keywords

Comments

Alternative name: Numbers > 1 whose smallest prime index divides all the other prime indices, but whose greatest prime index is not divisible by all the other prime indices.
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, but smallest part dividing all the others (counted by A343345). 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.

Examples

			The sequence of terms together with their prime indices begins:
     30: {1,2,3}        182: {1,4,6}          282: {1,2,15}
     60: {1,1,2,3}      186: {1,2,11}         286: {1,5,6}
     66: {1,2,5}        190: {1,3,8}          290: {1,3,10}
     70: {1,3,4}        198: {1,2,2,5}        300: {1,1,2,3,3}
     90: {1,2,2,3}      204: {1,1,2,7}        306: {1,2,2,7}
    102: {1,2,7}        210: {1,2,3,4}        308: {1,1,4,5}
    110: {1,3,5}        220: {1,1,3,5}        310: {1,3,11}
    120: {1,1,1,2,3}    238: {1,4,7}          322: {1,4,9}
    132: {1,1,2,5}      240: {1,1,1,1,2,3}    330: {1,2,3,5}
    138: {1,2,9}        246: {1,2,13}         340: {1,1,3,7}
    140: {1,1,3,4}      264: {1,1,1,2,5}      350: {1,3,3,4}
    150: {1,2,3,3}      270: {1,2,2,2,3}      354: {1,2,17}
    154: {1,4,5}        273: {2,4,6}          360: {1,1,1,2,2,3}
    170: {1,3,7}        276: {1,1,2,9}        364: {1,1,4,6}
    180: {1,1,2,2,3}    280: {1,1,1,3,4}      372: {1,1,2,11}

Crossrefs

The first condition alone gives the complement of A342193.
The second condition alone gives A343337.
The partitions with these Heinz numbers are counted by A343345.
A000005 counts divisors.
A000070 counts partitions with a selected part.
A001055 counts factorizations.
A056239 adds up prime indices, row sums of A112798.
A067824 counts strict chains of divisors starting with n.
A253249 counts strict chains of divisors.
Cf. A083710, A083711, A097986, A098965, A130714, A339562, A339563, A343341, A343377, A343381.

Programs

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

Formula

Complement of A342193 in A343337.

A339660 Number of strict integer partitions of n with no 1's and a part divisible by all the other parts.

Original entry on oeis.org

1, 0, 1, 1, 1, 1, 2, 1, 2, 2, 2, 2, 4, 1, 3, 3, 3, 3, 5, 2, 5, 5, 4, 5, 7, 3, 5, 6, 5, 5, 9, 4, 7, 6, 6, 9, 11, 6, 9, 10, 9, 10, 12, 6, 11, 12, 10, 12, 16, 9, 15, 16, 12, 14, 18, 14, 16, 18, 14, 15, 22, 11, 16, 20, 13, 21, 23, 15, 21, 24, 21, 21, 31, 14, 24
Offset: 0

Views

Author

Gus Wiseman, Apr 19 2021

Keywords

Comments

Alternative name: Number of strict integer partitions of n with no 1's that are empty or have greatest part divisible by all the other parts.

Examples

			The a(n) partitions for n = 14, 12, 18, 24, 30, 39, 36:
  (14)     (12)    (18)      (24)        (30)        (39)          (36)
  (12,2)   (8,4)   (12,6)    (16,8)      (24,6)      (36,3)        (27,9)
  (8,4,2)  (9,3)   (15,3)    (18,6)      (25,5)      (26,13)       (30,6)
           (10,2)  (16,2)    (20,4)      (27,3)      (27,9,3)      (32,4)
                   (12,4,2)  (21,3)      (28,2)      (28,7,4)      (33,3)
                             (22,2)      (20,10)     (30,6,3)      (34,2)
                             (12,6,4,2)  (18,9,3)    (24,12,3)     (24,12)
                                         (24,4,2)    (24,8,4,3)    (24,8,4)
                                         (16,8,4,2)  (20,10,5,4)   (18,9,6,3)
                                                     (24,6,4,3,2)  (24,6,4,2)
                                                                   (20,10,4,2)

Crossrefs

The dual version is A098965 (non-strict: A083711).
The non-strict version is A339619 (Heinz numbers: complement of A343337).
The version with 1's allowed is A343347 (non-strict: A130689).
The case without a part dividing all the other parts is A343380.
A000009 counts strict partitions.
A000070 counts partitions with a selected part.
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. A083710, A097986, A098743, A200745, A264401, A339563, A341450, A343337, A343341, A343344, A343378.

Programs

  • Mathematica
    Table[If[n==0,1,Length[Select[IntegerPartitions[n],FreeQ[#,1]&&UnsameQ@@#&&And@@IntegerQ/@(Max@@#/#)&]]],{n,0,30}]

A343348 Irregular triangle read by rows where T(n,k) is the number of strict integer partitions of n with least gap k.

Original entry on oeis.org

1, 0, 1, 1, 0, 1, 0, 1, 1, 1, 0, 2, 1, 0, 2, 1, 0, 1, 3, 1, 1, 0, 3, 2, 1, 0, 5, 2, 1, 0, 5, 3, 1, 0, 1, 7, 3, 1, 1, 0, 8, 4, 2, 1, 0, 10, 5, 2, 1, 0, 12, 6, 3, 1, 0, 15, 7, 3, 1, 0, 1, 17, 9, 4, 1, 1, 0, 21, 10, 4, 2, 1, 0, 25, 12, 6, 2, 1, 0, 29, 15, 6, 3, 1, 0, 35, 17, 8, 3, 1, 0
Offset: 0

Views

Author

Gus Wiseman, Apr 18 2021

Keywords

Comments

The least gap (or mex) of a partition is the least positive integer that is not a part.
Row lengths are chosen to be consistent with the non-strict case A264401.

Examples

			Triangle begins:
   1
   0   1
   1   0
   1   0   1
   1   1   0
   2   1   0
   2   1   0   1
   3   1   1   0
   3   2   1   0
   5   2   1   0
   5   3   1   0   1
   7   3   1   1   0
   8   4   2   1   0
  10   5   2   1   0
  12   6   3   1   0
  15   7   3   1   0   1

Links

Crossrefs

Row sums are A000009.
Row lengths are A002024.
Column k = 1 is A025147.
Column k = 2 is A025148.
The non-strict version is A264401.
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, A083710, A083711, A097986, A098743, A098965, A130689, A200745, A341450, A343347, A343377.

Programs

  • Mathematica
    mingap[q_]:=Min@@Complement[Range[If[q=={},0,Max[q]]+1],q];
Table[Length[Select[IntegerPartitions[n],UnsameQ@@#&&mingap[#]==k&]],{n,0,15},{k,Round[Sqrt[2*(n+1)]]}]
Previous Showing 11-14 of 14 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.