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 21-26 of 26 results.

A238495 Number of partitions p of n such that min(p) + (number of parts of p) is not a part of p.

Original entry on oeis.org

1, 2, 3, 4, 7, 9, 14, 19, 27, 36, 51, 66, 90, 118, 156, 201, 264, 336, 434, 550, 700, 880, 1112, 1385, 1733, 2149, 2666, 3283, 4049, 4956, 6072, 7398, 9009, 10922, 13237, 15970, 19261, 23147, 27790, 33260, 39776, 47425, 56497, 67133, 79685, 94371, 111653
Offset: 1

Views

Author

Clark Kimberling, Feb 27 2014

Keywords

Comments

Also the number of integer partitions of n + 1 with median > 1, or with no more 1's than non-1 parts. - Gus Wiseman, Jul 10 2023

Examples

			a(6) = 9 counts all the 11 partitions of 6 except 42 and 411.
From _Gus Wiseman_, Jul 10 2023 (Start)
The a(2) = 1 through a(8) = 14 partitions:
  (2)  (3)   (4)   (5)    (6)     (7)     (8)
       (21)  (22)  (32)   (33)    (43)    (44)
             (31)  (41)   (42)    (52)    (53)
                   (221)  (51)    (61)    (62)
                          (222)   (322)   (71)
                          (321)   (331)   (332)
                          (2211)  (421)   (422)
                                  (2221)  (431)
                                  (3211)  (521)
                                          (2222)
                                          (3221)
                                          (3311)
                                          (4211)
                                          (22211)
(End)

Crossrefs

Cf. A096373.
For mean instead of median we have A000065, ranks A057716.
The complement is counted by A027336, ranks A364056.
Rows sums of A359893 if we remove the first column.
These partitions have ranks A364058.
A000041 counts integer partitions.
A008284 counts partitions by length, A058398 by mean.
A025065 counts partitions with low mean 1, ranks A363949.
A124943 counts partitions by low median, high A124944.
A241131 counts partitions with low mode 1, ranks A360015.
Cf. A000070, A000975, A002865, A110618, A237984, A363488.

Programs

  • Mathematica
    Table[Count[IntegerPartitions[n], p_ /; ! MemberQ[p, Length[p] + Min[p]]], {n, 50}]
Table[Length[Select[IntegerPartitions[n+1],Median[#]>1&]],{n,30}] (* Gus Wiseman, Jul 10 2023 *)

Formula

From Gus Wiseman, Jul 11 2023: (Start)
a(n>2) = A000041(n) - A096373(n-2).
a(n>1) = A000041(n-2) + A002865(n+1).
a(n) = A000041(n+1) - A027336(n).
(End)

Extensions

Formula corrected by Gus Wiseman, Jul 11 2023

A363954 Numbers whose prime indices have low mean 2.

Original entry on oeis.org

3, 9, 10, 14, 15, 27, 28, 30, 42, 44, 45, 50, 52, 63, 66, 70, 75, 81, 84, 88, 90, 100, 104, 126, 132, 135, 136, 140, 150, 152, 156, 189, 196, 198, 204, 208, 210, 220, 225, 234, 243, 250, 252, 260, 264, 270, 272, 280, 294, 297, 300, 304, 308, 312, 315, 330, 350
Offset: 1

Views

Author

Gus Wiseman, Jul 05 2023

Keywords

Comments

Extending the terminology of A124944, the "low mean" of a multiset is obtained by taking the mean and rounding down.

Examples

			The terms together with their prime indices begin:
     3: {2}
     9: {2,2}
    10: {1,3}
    14: {1,4}
    15: {2,3}
    27: {2,2,2}
    28: {1,1,4}
    30: {1,2,3}
    42: {1,2,4}
    44: {1,1,5}
    45: {2,2,3}
    50: {1,3,3}
    52: {1,1,6}
    63: {2,2,4}
    66: {1,2,5}
    70: {1,3,4}
    75: {2,3,3}
    81: {2,2,2,2}
    84: {1,1,2,4}
    88: {1,1,1,5}
    90: {1,2,2,3}
   100: {1,1,3,3}

Crossrefs

Partitions of this type are counted by A363745.
Positions of 2's in A363943 (high A363944), triangle A363945 (high A363946).
For mean 1 we have A363949.
The high version is A363950, counted by A026905.
A112798 lists prime indices, length A001222, sum A056239.
A316413 ranks partitions with integer mean, counted by A067538.
A326567/A326568 gives mean of prime indices.
A363941 gives low median of prime indices, triangle A124943.
A363942 gives high median of prime indices, triangle A124944.
A363948 lists numbers whose prime indices have mean 1, counted by A363947.
Cf. A327473, A327476, A359889, A360013, A360015, A363488, A363951.

Programs

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

A364059 Number of integer partitions of n whose rounded mean is > 1. Partitions with mean >= 3/2.

Original entry on oeis.org

0, 0, 1, 2, 3, 5, 9, 11, 18, 26, 35, 49, 70, 89, 123, 164, 212, 278, 366, 460, 597, 762, 957, 1210, 1530, 1891, 2369, 2943, 3621, 4468, 5507, 6703, 8210, 10004, 12115, 14688, 17782, 21365, 25743, 30913, 36965, 44210, 52801, 62753, 74667, 88626, 104874, 124070
Offset: 0

Views

Author

Gus Wiseman, Jul 06 2023

Keywords

Comments

We use the "rounding half to even" rule, see link.

Examples

			The a(0) = 0 through a(8) = 18 partitions:
  .  .  (2)  (3)   (4)   (5)    (6)     (7)     (8)
             (21)  (22)  (32)   (33)    (43)    (44)
                   (31)  (41)   (42)    (52)    (53)
                         (221)  (51)    (61)    (62)
                         (311)  (222)   (322)   (71)
                                (321)   (331)   (332)
                                (411)   (421)   (422)
                                (2211)  (511)   (431)
                                (3111)  (2221)  (521)
                                        (3211)  (611)
                                        (4111)  (2222)
                                                (3221)
                                                (3311)
                                                (4211)
                                                (5111)
                                                (22211)
                                                (32111)
                                                (41111)

Links

Crossrefs

Rounding-up gives A000065.
Rounding-down gives A110618, ranks A344291.
For median instead of mean we appear to have A238495.
The complement is counted by A363947, ranks A363948.
A000041 counts integer partitions.
A008284 counts partitions by length, A058398 by mean.
A025065 counts partitions with low mean 1, ranks A363949.
A067538 counts partitions with integer mean, ranks A316413.
A124943 counts partitions by low median, high A124944.
Cf. A002865, A098859, A241131, A327482, A363723, A363724, A363731, A363946.

Programs

  • Mathematica
    Table[Length[Select[IntegerPartitions[n],Round[Mean[#]]>1&]],{n,0,30}]

Formula

a(n) = A000041(n) - A363947(n).

A364058 Heinz numbers of integer partitions with median > 1. Numbers whose multiset of prime factors has median > 2.

Original entry on oeis.org

3, 5, 6, 7, 9, 10, 11, 13, 14, 15, 17, 18, 19, 21, 22, 23, 25, 26, 27, 29, 30, 31, 33, 34, 35, 36, 37, 38, 39, 41, 42, 43, 45, 46, 47, 49, 50, 51, 53, 54, 55, 57, 58, 59, 60, 61, 62, 63, 65, 66, 67, 69, 70, 71, 73, 74, 75, 77, 78, 79, 81, 82, 83, 84, 85, 86
Offset: 1

Views

Author

Gus Wiseman, Jul 14 2023

Keywords

Comments

The Heinz number of a partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k). This gives a bijective correspondence between positive integers and integer partitions.
The median of a multiset is either the middle part (for odd length), or the average of the two middle parts (for even length).

Examples

			The terms together with their prime indices begin:
     3: {2}        23: {9}          42: {1,2,4}
     5: {3}        25: {3,3}        43: {14}
     6: {1,2}      26: {1,6}        45: {2,2,3}
     7: {4}        27: {2,2,2}      46: {1,9}
     9: {2,2}      29: {10}         47: {15}
    10: {1,3}      30: {1,2,3}      49: {4,4}
    11: {5}        31: {11}         50: {1,3,3}
    13: {6}        33: {2,5}        51: {2,7}
    14: {1,4}      34: {1,7}        53: {16}
    15: {2,3}      35: {3,4}        54: {1,2,2,2}
    17: {7}        36: {1,1,2,2}    55: {3,5}
    18: {1,2,2}    37: {12}         57: {2,8}
    19: {8}        38: {1,8}        58: {1,10}
    21: {2,4}      39: {2,6}        59: {17}
    22: {1,5}      41: {13}         60: {1,1,2,3}

Crossrefs

For mean instead of median we have A057716, counted by A000065.
These partitions are counted by A238495.
The complement is A364056, counted by A027336, low version A363488.
A000975 counts subsets with integer median, A051293 for mean.
A124943 counts partitions by low median, high version A124944.
A360005 gives twice the median of prime indices, A360459 for prime factors.
A359893 and A359901 count partitions by median.
Cf. A002865, A316413, A325347, A327473, A327476, A363727.

Programs

  • Mathematica
    prifacs[n_]:=If[n==1,{},Flatten[ConstantArray@@@FactorInteger[n]]];
Select[Range[100],Median[prifacs[#]]>2&]

Formula

A360005(a(n)) > 1.
A360459(a(n)) > 2.

A364060 Triangle read by rows where T(n,k) is the number of integer partitions of n with rounded mean k.

Original entry on oeis.org

1, 0, 1, 0, 1, 1, 0, 1, 1, 1, 0, 2, 2, 0, 1, 0, 2, 4, 0, 0, 1, 0, 2, 5, 3, 0, 0, 1, 0, 4, 7, 0, 3, 0, 0, 1, 0, 4, 8, 5, 4, 0, 0, 0, 1, 0, 4, 14, 7, 4, 0, 0, 0, 0, 1, 0, 7, 21, 8, 0, 5, 0, 0, 0, 0, 1, 0, 7, 22, 11, 10, 0, 5, 0, 0, 0, 0, 1
Offset: 0

Views

Author

Gus Wiseman, Jul 07 2023

Keywords

Comments

We use the "rounding half to even" rule, see link.

Examples

			Triangle begins:
  1
  0  1
  0  1  1
  0  1  1  1
  0  2  2  0  1
  0  2  4  0  0  1
  0  2  5  3  0  0  1
  0  4  7  0  3  0  0  1
  0  4  8  5  4  0  0  0  1
  0  4 14  7  4  0  0  0  0  1
  0  7 21  8  0  5  0  0  0  0  1
  0  7 22 11 10  0  5  0  0  0  0  1
  0  7 36 15 12  0  6  0  0  0  0  0  1
  0 12 32 36 14  0  6  0  0  0  0  0  0  1
  0 12 53 23 23 16  0  7  0  0  0  0  0  0  1
  0 12 80 30 27 19  0  0  7  0  0  0  0  0  0  1
Row n = 7 counts the following partitions:
  .  (31111)    (511)   .  (61)  .  .  (7)
     (22111)    (421)      (52)
     (211111)   (4111)     (43)
     (1111111)  (331)
                (322)
                (3211)
                (2221)

Links

Crossrefs

Row sums are A000041.
The rank statistic for this triangle is A363489.
The version for low mean is A363945, rank statistic A363943.
The version for high mean is A363946, rank statistic A363944.
Column k = 1 is A363947 (A026905 tripled).
A008284 counts partitions by length, A058398 by mean.
A026905 redoubled counts partitions with high mean 2, ranks A363950.
A051293 counts subsets with integer mean, median A000975.
A067538 counts partitions with integer mean, strict A102627, ranks A316413.
More triangles: A124943, A124944, A363952, A363953.
Cf. A002865, A025065, A237984, A327472, A327482, A363723, A363724, A363731.

Programs

  • Mathematica
    Table[If[n==k==0,1,Length[Select[IntegerPartitions[n], Round[Mean[#]]==k&]]],{n,0,15},{k,0,n}]

A364156 Ceiling of the mean of the prime factors of n (with multiplicity).

Original entry on oeis.org

0, 2, 3, 2, 5, 3, 7, 2, 3, 4, 11, 3, 13, 5, 4, 2, 17, 3, 19, 3, 5, 7, 23, 3, 5, 8, 3, 4, 29, 4, 31, 2, 7, 10, 6, 3, 37, 11, 8, 3, 41, 4, 43, 5, 4, 13, 47, 3, 7, 4, 10, 6, 53, 3, 8, 4, 11, 16, 59, 3, 61, 17, 5, 2, 9, 6, 67, 7, 13, 5, 71, 3, 73, 20, 5, 8, 9, 6
Offset: 1

Views

Author

Gus Wiseman, Jul 18 2023

Keywords

Examples

			The prime factors of 450 are {2,3,3,5,5}, with mean 18/5, so a(450) = 4.

Crossrefs

For median of prime indices we have triangle A124944, low A124943.
The round version is A067629.
The floor version is A126594.
A027746 lists prime factors, indices A112798.
A078175 lists numbers with integer mean of prime factors.
A123528/A123529 gives mean of prime factors, A326567/A326568 prime indices.
Cf. A026905, A051293, A316413, A327473, A327476, A327482, A363895, A363943, A363948, A363950, A364037.

Programs

  • Mathematica
    prifacs[n_]:=If[n==1,{},Flatten[ConstantArray@@@FactorInteger[n]]];
Table[If[n==1,0,Ceiling[Mean[prifacs[n]]]],{n,100}]

Formula

Ceiling of A123528(n)/A123529(n).
Previous Showing 21-26 of 26 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.