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 61-68 of 68 results.

A364160 Numbers whose least prime factor has the greatest exponent.

Original entry on oeis.org

1, 2, 3, 4, 5, 7, 8, 9, 11, 12, 13, 16, 17, 19, 20, 23, 24, 25, 27, 28, 29, 31, 32, 37, 40, 41, 43, 44, 45, 47, 48, 49, 52, 53, 56, 59, 60, 61, 63, 64, 67, 68, 71, 72, 73, 76, 79, 80, 81, 83, 84, 88, 89, 92, 96, 97, 99, 101, 103, 104, 107, 109, 112, 113, 116
Offset: 1

Views

Author

Gus Wiseman, Jul 14 2023

Keywords

Comments

First differs from A334298 in having 600 and lacking 180.
Also numbers whose minimum part in prime factorization is a unique mode.
If k is a term, then so are all powers of k. - Robert Israel, Sep 17 2024

Examples

			The prime factorization of 600 is 2*2*2*3*5*5, and 3 > max(1,2), so 600 is in the sequence.
The prime factorization of 180 is 2*2*3*3*5, but 2 <= max(2,1), so 180 is not in the sequence.
The terms together with their prime indices begin:
     1: {}           29: {10}              67: {19}
     2: {1}          31: {11}              68: {1,1,7}
     3: {2}          32: {1,1,1,1,1}       71: {20}
     4: {1,1}        37: {12}              72: {1,1,1,2,2}
     5: {3}          40: {1,1,1,3}         73: {21}
     7: {4}          41: {13}              76: {1,1,8}
     8: {1,1,1}      43: {14}              79: {22}
     9: {2,2}        44: {1,1,5}           80: {1,1,1,1,3}
    11: {5}          45: {2,2,3}           81: {2,2,2,2}
    12: {1,1,2}      47: {15}              83: {23}
    13: {6}          48: {1,1,1,1,2}       84: {1,1,2,4}
    16: {1,1,1,1}    49: {4,4}             88: {1,1,1,5}
    17: {7}          52: {1,1,6}           89: {24}
    19: {8}          53: {16}              92: {1,1,9}
    20: {1,1,3}      56: {1,1,1,4}         96: {1,1,1,1,1,2}
    23: {9}          59: {17}              97: {25}
    24: {1,1,1,2}    60: {1,1,2,3}         99: {2,2,5}
    25: {3,3}        61: {18}             101: {26}
    27: {2,2,2}      63: {2,2,4}          103: {27}
    28: {1,1,4}      64: {1,1,1,1,1,1}    104: {1,1,1,6}

Links

Crossrefs

Allowing any unique mode gives A356862, complement A362605.
Allowing any unique co-mode gives A359178, complement A362606.
The even case is A360013, counted by A241131.
For greatest instead of least we have A362616, counted by A362612.
These partitions are counted by A364193.
A027746 lists prime factors (with multiplicity).
A112798 lists prime indices, length A001222, sum A056239.
A362611 counts modes in prime factorization, triangle A362614.
A362613 counts co-modes in prime factorization, triangle A362615.
A363486 gives least mode in prime indices, A363487 greatest.
Cf. A098859, A327473, A327476, A360014, A360015, A362610, A364061, A364062.

Programs

  • Maple
    filter:= proc(n) local F,i;
  F:= ifactors(n)[2];
  if nops(F) = 1 then return true fi;
  i:= min[index](F[..,1]);
  andmap(t -> F[t,2] < F[i,2], {$1..nops(F)} minus {i})
end proc:
filter(1):= true:
select(filter, [$1..200]); # Robert Israel, Sep 17 2024
  • Mathematica
    Select[Range[100],First[Last/@FactorInteger[#]] > Max@@Rest[Last/@FactorInteger[#]]&]

A363223 Numbers with bigomega equal to median prime index.

Original entry on oeis.org

2, 9, 10, 50, 70, 75, 105, 110, 125, 130, 165, 170, 175, 190, 195, 230, 255, 275, 285, 290, 310, 325, 345, 370, 410, 425, 430, 435, 465, 470, 475, 530, 555, 575, 590, 610, 615, 645, 670, 686, 705, 710, 725, 730, 775, 790, 795, 830, 885, 890, 915, 925, 970
Offset: 1

Views

Author

Gus Wiseman, May 29 2023

Keywords

Comments

The median of a multiset is either the middle part (for odd length), or the average of the two middle parts (for even length).
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}
   50: {1,3,3}
   70: {1,3,4}
   75: {2,3,3}
  105: {2,3,4}
  110: {1,3,5}
  125: {3,3,3}
  130: {1,3,6}
  165: {2,3,5}
  170: {1,3,7}
  175: {3,3,4}

Crossrefs

For maximum instead of median we have A106529, counted by A047993.
For minimum instead of median we have A324522, counted by A006141.
Partitions of this type are counted by A361800.
For twice median we have A362050, counted by A362049.
For maximum instead of length we have A362621, counted by A053263.
A000975 counts subsets with integer median.
A027746 lists prime factors, A112798 indices, length A001222, sum A056239.
A325347 counts partitions with integer median, complement A307683.
A359893 and A359901 count partitions by median.
A359908 lists numbers whose prime indices have integer median.
A360005 gives twice median of prime indices.
Cf. A000040, A013580, A079309, A240219, A327473, A327476, A361860, A362619, A362622, A362980.

Programs

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

Formula

2*A001222(a(n)) = A360005(a(n)).

A363489 Rounded mean of the multiset of prime indices of n.

Original entry on oeis.org

0, 1, 2, 1, 3, 2, 4, 1, 2, 2, 5, 1, 6, 2, 2, 1, 7, 2, 8, 2, 3, 3, 9, 1, 3, 4, 2, 2, 10, 2, 11, 1, 4, 4, 4, 2, 12, 4, 4, 2, 13, 2, 14, 2, 2, 5, 15, 1, 4, 2, 4, 3, 16, 2, 4, 2, 5, 6, 17, 2, 18, 6, 3, 1, 4, 3, 19, 3, 6, 3, 20, 1, 21, 6, 3, 3, 4, 3, 22, 1, 2, 7
Offset: 1

Views

Author

Gus Wiseman, Jul 07 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.
We use the "rounding half to even" rule, see link.

Examples

			The prime indices of 180 are {1,1,2,2,3}, with mean 9/5, which rounds to 2, so a(180) = 2.

Links

Crossrefs

Positions of first appearances are 1 and A000040.
Before rounding we had A326567/A326568.
For rounded-down: A363943, triangle A363945.
For rounded-up: A363944, triangle A363946.
Positions of 1's are A363948, complement A364059.
The triangle for this statistic (rounded mean) is A364060.
For prime factors instead of indices we have A364061.
A088529/A088530 gives mean of prime signature A124010.
A112798 lists prime indices, length A001222, sum A056239.
A316413 ranks partitions with integer mean, counted by A067538.
Cf. A327473, A327476, A327482, A359889, A360005, A363947, A363949, A363951.

Programs

  • Mathematica
    prix[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
Table[If[n==1,0,Round[Mean[prix[n]]]],{n,100}]

A363261 The partial sums of the prime indices of n include half the sum of all prime indices of n.

Original entry on oeis.org

4, 9, 12, 16, 25, 30, 40, 48, 49, 63, 64, 70, 81, 84, 108, 112, 121, 144, 154, 160, 165, 169, 192, 198, 220, 256, 264, 270, 273, 286, 289, 325, 351, 352, 360, 361, 364, 390, 442, 448, 468, 480, 520, 529, 561, 567, 576, 595, 624, 625, 640, 646, 675, 714, 729
Offset: 1

Views

Author

Gus Wiseman, Jun 06 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:
   4: {1,1}
   9: {2,2}
  12: {1,1,2}
  16: {1,1,1,1}
  25: {3,3}
  30: {1,2,3}
  40: {1,1,1,3}
  48: {1,1,1,1,2}
  49: {4,4}
  63: {2,2,4}
  64: {1,1,1,1,1,1}
  70: {1,3,4}
  81: {2,2,2,2}
  84: {1,1,2,4}

Crossrefs

Partitions of this type are counted by A322439.
For parts instead of partial sums we have A344415, counted by A035363.
A025065 counts palindromic partitions, ranked by A265640.
A027746 lists prime factors, A112798 indices, length A001222, sum A056239.
A301987 lists numbers whose sum of prime indices equals their product.
A322109 ranks partitions of n with no part > n/2, counted by A110618.
Cf. A001414, A106529, A327473, A327476, A334201, A340387, A360005.

Programs

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

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.

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).

A364157 Numbers whose rounded-down (floor) mean of prime factors (with multiplicity) is 2.

Original entry on oeis.org

2, 4, 6, 8, 12, 16, 18, 24, 32, 36, 40, 48, 54, 64, 72, 80, 96, 108, 120, 128, 144, 160, 162, 192, 216, 224, 240, 256, 288, 320, 324, 360, 384, 432, 448, 480, 486, 512, 576, 640, 648, 672, 720, 768, 800, 864, 896, 960, 972, 1024, 1080, 1152, 1280, 1296, 1344
Offset: 1

Views

Author

Gus Wiseman, Jul 18 2023

Keywords

Examples

			The terms together with their prime factors begin:
   2 = 2
   4 = 2*2
   6 = 2*3
   8 = 2*2*2
  12 = 2*2*3
  16 = 2*2*2*2
  18 = 2*3*3
  24 = 2*2*2*3
  32 = 2*2*2*2*2
  36 = 2*2*3*3
  40 = 2*2*2*5
  48 = 2*2*2*2*3
  54 = 2*3*3*3
  64 = 2*2*2*2*2*2
  72 = 2*2*2*3*3
  80 = 2*2*2*2*5
  96 = 2*2*2*2*2*3

Crossrefs

Without multiplicity we appear to have A007694.
Prime factors are listed by A027746, indices A112798.
Positions of 2's in A126594, positions of first appearances A364037.
For prime indices and ceiling we have A363950, counted by A026905.
For prime indices we have A363954 (or A363949), counted by A363745.
A078175 lists numbers with integer mean of prime factors.
A123528/A123529 gives mean of prime factors, indices A326567/A326568.
A316413 ranks partitions with integer mean, counted by A067538.
A363895 gives floor of mean of distinct prime factors.
A363943 gives floor of mean of prime indices, ceiling A363944.
Cf. A001222, A056239, A327473, A327476, A360013, A360015, A363488, A363945.

Programs

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

A382856 Numbers whose prime indices do not have a mode of 1.

Original entry on oeis.org

1, 3, 5, 7, 9, 11, 13, 15, 17, 18, 19, 21, 23, 25, 27, 29, 31, 33, 35, 37, 39, 41, 43, 45, 47, 49, 50, 51, 53, 54, 55, 57, 59, 61, 63, 65, 67, 69, 71, 73, 75, 77, 79, 81, 83, 85, 87, 89, 90, 91, 93, 95, 97, 98, 99, 101, 103, 105, 107, 108, 109, 111, 113, 115
Offset: 1

Views

Author

Gus Wiseman, Apr 07 2025

Keywords

Examples

			The terms together with their prime indices begin:
   1: {}
   3: {2}
   5: {3}
   7: {4}
   9: {2,2}
  11: {5}
  13: {6}
  15: {2,3}
  17: {7}
  18: {1,2,2}
  19: {8}
  21: {2,4}
  23: {9}
  25: {3,3}
  27: {2,2,2}

Crossrefs

The case of non-unique mode is A024556.
The complement is A360015 except first.
Partitions of this type are are counted by A382526 except first, complement A241131.
A091602 counts partitions by the greatest multiplicity, rank statistic A051903.
A112798 lists prime indices, length A001222, sum A056239.
A116598 counts ones in partitions, rank statistic A007814.
A240312 counts partitions with max part = max multiplicity, ranks A381542.
A362611 counts modes in prime indices, triangle A362614.
For co-mode see A359178, A362613, A364061 (A364062), A364158 (A364159).
Cf. A000265, A002865, A106529, A327473, A327476, A362605, A363486, A356862, A360013, A360014, A381437.

Programs

  • Mathematica
    prix[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
Select[Range[100],FreeQ[Commonest[prix[#]],1]&]
Previous Showing 61-68 of 68 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.