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-20 of 23 results. Next

A363950 Numbers whose prime indices have rounded-up mean 2.

Original entry on oeis.org

3, 6, 9, 10, 12, 18, 20, 24, 27, 28, 30, 36, 40, 48, 54, 56, 60, 72, 80, 81, 84, 88, 90, 96, 100, 108, 112, 120, 144, 160, 162, 168, 176, 180, 192, 200, 208, 216, 224, 240, 243, 252, 264, 270, 280, 288, 300, 320, 324, 336, 352, 360, 384, 400, 416, 432, 448
Offset: 1

Views

Author

Gus Wiseman, Jul 05 2023

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.

Examples

			The terms together with their prime indices begin:
     3: {2}
     6: {1,2}
     9: {2,2}
    10: {1,3}
    12: {1,1,2}
    18: {1,2,2}
    20: {1,1,3}
    24: {1,1,1,2}
    27: {2,2,2}
    28: {1,1,4}
    30: {1,2,3}
    36: {1,1,2,2}
    40: {1,1,1,3}
    48: {1,1,1,1,2}
    54: {1,2,2,2}
    56: {1,1,1,4}
    60: {1,1,2,3}
    72: {1,1,1,2,2}
    80: {1,1,1,1,3}
    81: {2,2,2,2}
		

Crossrefs

For mean 1 we have A000079 except 1.
Partitions of this type are counted by A026905 redoubled.
Equals the complement of A000079 in A344296.
Positions of 2's in A363944 (counted by column 2 of A363946).
For rounded mean 1 we have A363948, counted by A363947.
For rounded-down mean 1 we have A363949, counted by A025065.
The rounded-down or low version is A363954, counted by A363745.
A316413 ranks partitions with integer mean, counted by A067538.
A112798 lists prime indices, length A001222, sum A056239.
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.

Programs

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

A363488 Even numbers whose prime factorization has at least as many 2's as non-2's.

Original entry on oeis.org

2, 4, 6, 8, 10, 12, 14, 16, 20, 22, 24, 26, 28, 32, 34, 36, 38, 40, 44, 46, 48, 52, 56, 58, 60, 62, 64, 68, 72, 74, 76, 80, 82, 84, 86, 88, 92, 94, 96, 100, 104, 106, 112, 116, 118, 120, 122, 124, 128, 132, 134, 136, 140, 142, 144, 146, 148, 152, 156, 158, 160
Offset: 1

Views

Author

Gus Wiseman, Jul 06 2023

Keywords

Comments

The multiset of prime factors of n is row n of A027746.
Also numbers whose prime factors have low median 2, where the low median (see A124943) is either the middle part (for odd length), or the least of the two middle parts (for even length).

Examples

			The terms together with their prime indices begin:
     2: {1}            34: {1,7}             72: {1,1,1,2,2}
     4: {1,1}          36: {1,1,2,2}         74: {1,12}
     6: {1,2}          38: {1,8}             76: {1,1,8}
     8: {1,1,1}        40: {1,1,1,3}         80: {1,1,1,1,3}
    10: {1,3}          44: {1,1,5}           82: {1,13}
    12: {1,1,2}        46: {1,9}             84: {1,1,2,4}
    14: {1,4}          48: {1,1,1,1,2}       86: {1,14}
    16: {1,1,1,1}      52: {1,1,6}           88: {1,1,1,5}
    20: {1,1,3}        56: {1,1,1,4}         92: {1,1,9}
    22: {1,5}          58: {1,10}            94: {1,15}
    24: {1,1,1,2}      60: {1,1,2,3}         96: {1,1,1,1,1,2}
    26: {1,6}          62: {1,11}           100: {1,1,3,3}
    28: {1,1,4}        64: {1,1,1,1,1,1}    104: {1,1,1,6}
    32: {1,1,1,1,1}    68: {1,1,7}          106: {1,16}
		

Crossrefs

Partitions of this type are counted by A027336.
The case without high median > 1 is A072978.
For mode instead of median we have A360015, high A360013.
Positions of 1's in A363941.
For mean instead of median we have A363949, high A000079.
The high version is A364056, positions of 1's in A363942.
A067538 counts partitions with integer mean, ranks A316413.
A112798 lists prime indices, length A001222, sum A056239.
A124943 counts partitions by low median, high A124944.
A363943 gives low mean of prime indices, triangle A363945.

Programs

  • Mathematica
    Select[Range[100],EvenQ[#]&&PrimeOmega[#]<=2*FactorInteger[#][[1,2]]&]

A363948 Numbers whose prime indices have mean < 3/2.

Original entry on oeis.org

2, 4, 8, 12, 16, 24, 32, 48, 64, 72, 80, 96, 128, 144, 160, 192, 256, 288, 320, 384, 432, 448, 480, 512, 576, 640, 768, 864, 896, 960, 1024, 1152, 1280, 1536, 1728, 1792, 1920, 2048, 2304, 2560, 2592, 2688, 2816, 2880, 3072, 3200, 3456, 3584, 3840, 4096, 4608
Offset: 1

Views

Author

Gus Wiseman, Jul 02 2023

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.

Examples

			The initial terms, prime indices, and means:
    2: {1} -> 1
    4: {1,1} -> 1
    8: {1,1,1} -> 1
   12: {1,1,2} -> 4/3
   16: {1,1,1,1} -> 1
   24: {1,1,1,2} -> 5/4
   32: {1,1,1,1,1} -> 1
   48: {1,1,1,1,2} -> 6/5
   64: {1,1,1,1,1,1} -> 1
   72: {1,1,1,2,2} -> 7/5
   80: {1,1,1,1,3} -> 7/5
   96: {1,1,1,1,1,2} -> 7/6
		

Crossrefs

These partitions are counted by A363947.
Prime indices have mean A326567/A326568.
For low mode we have A360015, high A360013.
Positions of 1's in A363489.
A112798 lists prime indices, length A001222, sum A056239.
A316413 ranks partitions with integer mean, counted by A067538.
A360005 gives twice the median of prime indices.
A363949 ranks partitions with low mean 1, counted by A025065.
A363950 ranks partitions with low mean 2, counted by A026905 redoubled.

Programs

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

A363952 Number of integer partitions of n with low mode k.

Original entry on oeis.org

1, 0, 1, 0, 1, 1, 0, 2, 0, 1, 0, 3, 1, 0, 1, 0, 4, 2, 0, 0, 1, 0, 7, 2, 1, 0, 0, 1, 0, 9, 3, 2, 0, 0, 0, 1, 0, 13, 5, 2, 1, 0, 0, 0, 1, 0, 18, 6, 3, 2, 0, 0, 0, 0, 1, 0, 26, 9, 3, 2, 1, 0, 0, 0, 0, 1, 0, 32, 13, 5, 3, 2, 0, 0, 0, 0, 0, 1, 0, 47, 16, 7, 3, 2, 1, 0, 0, 0, 0, 0, 1
Offset: 0

Views

Author

Gus Wiseman, Jul 07 2023

Keywords

Comments

A mode in a multiset is an element that appears at least as many times as each of the others. For example, the modes in {a,a,b,b,b,c,d,d,d} are {b,d}.
Extending the terminology of A124943, the "low mode" of a multiset is the least mode.

Examples

			Triangle begins:
   1
   0   1
   0   1   1
   0   2   0   1
   0   3   1   0   1
   0   4   2   0   0   1
   0   7   2   1   0   0   1
   0   9   3   2   0   0   0   1
   0  13   5   2   1   0   0   0   1
   0  18   6   3   2   0   0   0   0   1
   0  26   9   3   2   1   0   0   0   0   1
   0  32  13   5   3   2   0   0   0   0   0   1
   0  47  16   7   3   2   1   0   0   0   0   0   1
   0  60  21  10   4   3   2   0   0   0   0   0   0   1
   0  79  30  13   6   3   2   1   0   0   0   0   0   0   1
   0 104  38  17   7   4   3   2   0   0   0   0   0   0   0   1
Row n = 8 counts the following partitions:
  .  (71)        (62)     (53)   (44)  .  .  .  (8)
     (611)       (422)    (332)
     (521)       (3221)
     (5111)      (2222)
     (431)       (22211)
     (4211)
     (41111)
     (3311)
     (32111)
     (311111)
     (221111)
     (2111111)
     (11111111)
		

Crossrefs

Row sums are A000041.
For median: A124943 (high A124944), rank statistic A363941 (high A363942).
Column k = 1 is A241131 (partitions w/ low mode 1), ranks A360015, A360013.
The rank statistic for this triangle is A363486.
For mean: A363945 (high A363946), rank statistic A363943 (high A363944).
The high version is A363953.
A008284 counts partitions by length, A058398 by mean.
A362612 counts partitions (max part) = (unique mode), ranks A362616.
A362614 counts partitions by number of modes, rank statistic A362611.
A362615 counts partitions by number of co-modes, rank statistic A362613.

Programs

  • Mathematica
    modes[ms_]:=Select[Union[ms],Count[ms,#]>=Max@@Length/@Split[ms]&];
    Table[Length[Select[IntegerPartitions[n], If[Length[#]==0,0,First[modes[#]]]==k&]],{n,0,15},{k,0,n}]

A363951 Numbers whose prime indices satisfy (length) = (mean), or (sum) = (length)^2.

Original entry on oeis.org

2, 9, 10, 68, 78, 98, 99, 105, 110, 125, 328, 444, 558, 620, 783, 812, 870, 966, 988, 1012, 1035, 1150, 1156, 1168, 1197, 1254, 1326, 1330, 1425, 1521, 1666, 1683, 1690, 1704, 1785, 1870, 1911, 2002, 2125, 2145, 2275, 2401, 2412, 2541, 2662, 2680, 2695, 3025
Offset: 1

Views

Author

Gus Wiseman, Jul 05 2023

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.

Examples

			The terms together with their prime indices begin:
    2: {1}
    9: {2,2}
   10: {1,3}
   68: {1,1,7}
   78: {1,2,6}
   98: {1,4,4}
   99: {2,2,5}
  105: {2,3,4}
  110: {1,3,5}
  125: {3,3,3}
  328: {1,1,1,13}
  444: {1,1,2,12}
  558: {1,2,2,11}
  620: {1,1,3,11}
  783: {2,2,2,10}
  812: {1,1,4,10}
  870: {1,2,3,10}
  966: {1,2,4,9}
  988: {1,1,6,8}
		

Crossrefs

Partitions of this type are counted by A364055, without zeros A206240.
The RHS is A001222.
The LHS is A326567/A326568.
A008284 counts partitions by length, A058398 by mean.
A088529/A088530 gives mean of prime signature A124010.
A112798 lists prime indices, sum A056239.
A124943 counts partitions by low median, high A124944.
A316413 ranks partitions with integer mean, counted by A067538.
A326622 counts factorizations with integer mean, strict A328966.
A363950 ranks partitions with low mean 2, counted by A026905 redoubled.

Programs

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

A363953 Number of integer partitions of n with high mode k.

Original entry on oeis.org

1, 0, 1, 0, 1, 1, 0, 1, 1, 1, 0, 2, 1, 1, 1, 0, 3, 1, 1, 1, 1, 0, 4, 2, 2, 1, 1, 1, 0, 7, 2, 1, 2, 1, 1, 1, 0, 9, 4, 2, 2, 2, 1, 1, 1, 0, 13, 6, 2, 2, 2, 2, 1, 1, 1, 0, 18, 7, 4, 3, 3, 2, 2, 1, 1, 1, 0, 26, 10, 5, 2, 3, 3, 2, 2, 1, 1, 1
Offset: 0

Views

Author

Gus Wiseman, Jul 07 2023

Keywords

Comments

A mode in a multiset is an element that appears at least as many times as each of the others. For example, the modes in {a,a,b,b,b,c,d,d,d} are {b,d}.
Extending the terminology of A124944, the "high mode" in a multiset is the greatest mode.

Examples

			Triangle begins:
  1
  0  1
  0  1  1
  0  1  1  1
  0  2  1  1  1
  0  3  1  1  1  1
  0  4  2  2  1  1  1
  0  7  2  1  2  1  1  1
  0  9  4  2  2  2  1  1  1
  0 13  6  2  2  2  2  1  1  1
  0 18  7  4  3  3  2  2  1  1  1
  0 26 10  5  2  3  3  2  2  1  1  1
  0 32 15  8  4  4  4  3  2  2  1  1  1
  0 47 19  9  5  3  4  4  3  2  2  1  1  1
  0 60 26 13  7  5  5  5  4  3  2  2  1  1  1
  0 79 34 18 10  6  5  5  5  4  3  2  2  1  1  1
Row n = 9 counts the following partitions:
  .  (711)        (522)     (333)   (441)  (54)   (63)   (72)  (81)  (9)
     (6111)       (4221)    (3321)  (432)  (531)  (621)
     (5211)       (3222)
     (51111)      (32211)
     (4311)       (22221)
     (42111)      (222111)
     (411111)
     (33111)
     (321111)
     (3111111)
     (2211111)
     (21111111)
     (111111111)
		

Crossrefs

Row sums are A000041.
For median: A124944 (low A124943), rank statistic A363942 (low A363941).
Column k = 1 is A241131 (partitions w/ high mode 1), ranks A360013, A360015.
The rank statistic for this triangle is A363487, low A363486.
For mean: A363946 (low A363945), rank statistic A363944 (low A363943).
The low version is A363952.
A008284 counts partitions by length, A058398 by mean.
A362612 counts partitions (max part) = (unique mode), ranks A362616.
A362614 counts partitions by number of modes, rank statistic A362611.
A362615 counts partitions by number of co-modes, rank statistic A362613.

Programs

  • Mathematica
    modes[ms_]:=Select[Union[ms],Count[ms,#]>=Max@@Length/@Split[ms]&];
    Table[Length[Select[IntegerPartitions[n], If[Length[#]==0,0,Last[modes[#]]]==k&]],{n,0,15},{k,0,n}]

A364056 Numbers whose prime factors have high median 2. Numbers whose prime factors (with multiplicity) are mostly 2's.

Original entry on oeis.org

2, 4, 8, 12, 16, 20, 24, 28, 32, 40, 44, 48, 52, 56, 64, 68, 72, 76, 80, 88, 92, 96, 104, 112, 116, 120, 124, 128, 136, 144, 148, 152, 160, 164, 168, 172, 176, 184, 188, 192, 200, 208, 212, 224, 232, 236, 240, 244, 248, 256, 264, 268, 272, 280, 284, 288, 292
Offset: 1

Views

Author

Gus Wiseman, Jul 07 2023

Keywords

Comments

The multiset of prime factors of n is row n of A027746.
The high median (see A124944) in a multiset is either the middle part (for odd length), or the greatest of the two middle parts (for even length).

Examples

			The terms together with their prime indices begin:
     2: {1}             64: {1,1,1,1,1,1}      136: {1,1,1,7}
     4: {1,1}           68: {1,1,7}            144: {1,1,1,1,2,2}
     8: {1,1,1}         72: {1,1,1,2,2}        148: {1,1,12}
    12: {1,1,2}         76: {1,1,8}            152: {1,1,1,8}
    16: {1,1,1,1}       80: {1,1,1,1,3}        160: {1,1,1,1,1,3}
    20: {1,1,3}         88: {1,1,1,5}          164: {1,1,13}
    24: {1,1,1,2}       92: {1,1,9}            168: {1,1,1,2,4}
    28: {1,1,4}         96: {1,1,1,1,1,2}      172: {1,1,14}
    32: {1,1,1,1,1}    104: {1,1,1,6}          176: {1,1,1,1,5}
    40: {1,1,1,3}      112: {1,1,1,1,4}        184: {1,1,1,9}
    44: {1,1,5}        116: {1,1,10}           188: {1,1,15}
    48: {1,1,1,1,2}    120: {1,1,1,2,3}        192: {1,1,1,1,1,1,2}
    52: {1,1,6}        124: {1,1,11}           200: {1,1,1,3,3}
    56: {1,1,1,4}      128: {1,1,1,1,1,1,1}    208: {1,1,1,1,6}
		

Crossrefs

Partitions of this type are counted by A027336.
Median of prime indices is A360005(n)/2.
For mode instead of median we have A360013, low A360015.
The low version is A363488, positions of 1's in A363941.
Positions of 1's in A363942.
A112798 lists prime indices, length A001222, sum A056239.
A123528/A123529 gives mean of prime factors, indices A326567/A326568.
A124943 counts partitions by low median, high A124944.

Programs

  • Mathematica
    prifacs[n_]:=If[n==1,{},Flatten[ConstantArray@@@FactorInteger[n]]];
    merr[y_]:=If[Length[y]==0,0,If[OddQ[Length[y]],y[[(Length[y]+1)/2]], y[[1+Length[y]/2]]]];
    Select[Range[100],merr[prifacs[#]]==2&]

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.

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.

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)
		

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.

Programs

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

Formula

a(n) = A000041(n) - A363947(n).
Previous Showing 11-20 of 23 results. Next