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-28 of 28 results.

A372589 Numbers k > 1 such that (greatest binary index of k) + (greatest prime index of k) is even.

Original entry on oeis.org

3, 4, 5, 9, 12, 13, 14, 16, 17, 20, 22, 23, 25, 30, 31, 35, 36, 37, 38, 39, 42, 43, 48, 49, 52, 53, 54, 56, 57, 58, 61, 63, 64, 66, 67, 68, 69, 73, 75, 77, 80, 82, 83, 85, 88, 90, 92, 93, 94, 97, 99, 100, 102, 103, 109, 110, 115, 118, 119, 120, 121, 123, 124
Offset: 1

Views

Author

Gus Wiseman, May 14 2024

Keywords

Comments

A binary index of n is any position of a 1 in its reversed binary expansion. The binary indices of n are row n of A048793.
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 odd version is A372588.

Examples

			The terms (center), their binary indices (left), and their weakly decreasing prime indices (right) begin:
        {1,2}   3  (2)
          {3}   4  (1,1)
        {1,3}   5  (3)
        {1,4}   9  (2,2)
        {3,4}  12  (2,1,1)
      {1,3,4}  13  (6)
      {2,3,4}  14  (4,1)
          {5}  16  (1,1,1,1)
        {1,5}  17  (7)
        {3,5}  20  (3,1,1)
      {2,3,5}  22  (5,1)
    {1,2,3,5}  23  (9)
      {1,4,5}  25  (3,3)
    {2,3,4,5}  30  (3,2,1)
  {1,2,3,4,5}  31  (11)
      {1,2,6}  35  (4,3)
        {3,6}  36  (2,2,1,1)
      {1,3,6}  37  (12)
      {2,3,6}  38  (8,1)
    {1,2,3,6}  39  (6,2)
      {2,4,6}  42  (4,2,1)
    {1,2,4,6}  43  (14)
		

Crossrefs

For sum (A372428, zeros A372427) we have A372587, complement A372586.
For minimum (A372437) we have A372440, complement A372439.
For length (A372441, zeros A071814) we have A372591, complement A372590.
Positions of even terms in A372442, zeros A372436.
The complement is A372588.
For just binary indices:
- length: A001969, complement A000069
- sum: A158704, complement A158705
- minimum: A036554, complement A003159
- maximum: A053754, complement A053738
For just prime indices:
- length: A026424 A028260 (count A027187), complement (count A027193)
- sum: A300061 (count A058696), complement A300063 (count A058695)
- minimum: A340933 (count A026805), complement A340932 (count A026804)
- maximum: A244990 (count A027187), complement A244991 (count A027193)
A019565 gives Heinz number of binary indices, adjoint A048675.
A029837 gives greatest binary index, least A001511.
A031215 lists even-indexed primes, odd A031368.
A048793 lists binary indices, length A000120, reverse A272020, sum A029931.
A061395 gives greatest prime index, least A055396.
A070939 gives length of binary expansion.
A112798 lists prime indices, length A001222, reverse A296150, sum A056239.

Programs

  • Mathematica
    Select[Range[2,100],EvenQ[IntegerLength[#,2]+PrimePi[FactorInteger[#][[-1,1]]]]&]

Formula

Numbers k such that A070939(k) + A061395(k) is even.

A372590 Numbers whose binary weight (A000120) plus bigomega (A001222) is odd.

Original entry on oeis.org

1, 3, 4, 5, 12, 14, 16, 17, 18, 20, 21, 22, 23, 25, 26, 27, 29, 30, 35, 38, 43, 45, 48, 49, 53, 55, 56, 62, 63, 64, 66, 68, 69, 71, 72, 74, 75, 78, 80, 81, 82, 83, 84, 87, 88, 89, 91, 92, 93, 94, 99, 100, 101, 102, 104, 105, 108, 113, 114, 115, 116, 118, 120
Offset: 1

Views

Author

Gus Wiseman, May 14 2024

Keywords

Comments

The even version is A372591.

Examples

			The terms (center), their binary indices (left), and their weakly decreasing prime indices (right) begin:
        {1}   1  ()
      {1,2}   3  (2)
        {3}   4  (1,1)
      {1,3}   5  (3)
      {3,4}  12  (2,1,1)
    {2,3,4}  14  (4,1)
        {5}  16  (1,1,1,1)
      {1,5}  17  (7)
      {2,5}  18  (2,2,1)
      {3,5}  20  (3,1,1)
    {1,3,5}  21  (4,2)
    {2,3,5}  22  (5,1)
  {1,2,3,5}  23  (9)
    {1,4,5}  25  (3,3)
    {2,4,5}  26  (6,1)
  {1,2,4,5}  27  (2,2,2)
  {1,3,4,5}  29  (10)
  {2,3,4,5}  30  (3,2,1)
    {1,2,6}  35  (4,3)
    {2,3,6}  38  (8,1)
  {1,2,4,6}  43  (14)
  {1,3,4,6}  45  (3,2,2)
		

Crossrefs

For sum (A372428, zeros A372427) we have A372586, complement A372587.
For minimum (A372437) we have A372439, complement A372440.
Positions of odd terms in A372441, zeros A071814.
For maximum (A372442, zeros A372436) we have A372588, complement A372589.
The complement is A372591.
For just binary indices:
- length: A000069, complement A001969
- sum: A158705, complement A158704
- minimum: A003159, complement A036554
- maximum: A053738, complement A053754
For just prime indices:
- length: A026424 (count A027193), complement A028260 (count A027187)
- sum: A300063 (count A058695), complement A300061 (count A058696)
- minimum: A340932 (count A026804), complement A340933 (count A026805)
- maximum: A244991 (count A027193), complement A244990 (count A027187)
A005408 lists odd numbers.
A019565 gives Heinz number of binary indices, adjoint A048675.
A029837 gives greatest binary index, least A001511.
A031368 lists odd-indexed primes, even A031215.
A048793 lists binary indices, length A000120, reverse A272020, sum A029931.
A070939 gives length of binary expansion.
A112798 lists prime indices, length A001222, reverse A296150, sum A056239.

Programs

  • Mathematica
    Select[Range[100],OddQ[DigitCount[#,2,1]+PrimeOmega[#]]&]

A372587 Numbers k such that (sum of binary indices of k) + (sum of prime indices of k) is even.

Original entry on oeis.org

6, 7, 10, 11, 13, 14, 18, 19, 22, 23, 24, 25, 26, 27, 28, 30, 31, 33, 34, 35, 37, 38, 39, 40, 41, 44, 49, 50, 52, 56, 57, 58, 62, 69, 70, 72, 74, 75, 76, 77, 82, 83, 85, 86, 87, 88, 90, 92, 96, 98, 100, 102, 103, 104, 106, 107, 108, 109, 112, 117, 120, 123
Offset: 1

Views

Author

Gus Wiseman, May 14 2024

Keywords

Comments

A binary index of n is any position of a 1 in its reversed binary expansion. The binary indices of n are row n of A048793.
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 odd version is A372586.

Examples

			The terms (center), their binary indices (left), and their weakly decreasing prime indices (right) begin:
            {2,3}   6  (2,1)
          {1,2,3}   7  (4)
            {2,4}  10  (3,1)
          {1,2,4}  11  (5)
          {1,3,4}  13  (6)
          {2,3,4}  14  (4,1)
            {2,5}  18  (2,2,1)
          {1,2,5}  19  (8)
          {2,3,5}  22  (5,1)
        {1,2,3,5}  23  (9)
            {4,5}  24  (2,1,1,1)
          {1,4,5}  25  (3,3)
          {2,4,5}  26  (6,1)
        {1,2,4,5}  27  (2,2,2)
          {3,4,5}  28  (4,1,1)
        {2,3,4,5}  30  (3,2,1)
      {1,2,3,4,5}  31  (11)
            {1,6}  33  (5,2)
            {2,6}  34  (7,1)
          {1,2,6}  35  (4,3)
          {1,3,6}  37  (12)
          {2,3,6}  38  (8,1)
		

Crossrefs

Positions of even terms in A372428, zeros A372427.
For minimum (A372437) we have A372440, complement A372439.
For length (A372441, zeros A071814) we have A372591, complement A372590.
For maximum (A372442, zeros A372436) we have A372589, complement A372588.
The complement is A372586.
For just binary indices:
- length: A001969, complement A000069
- sum: A158704, complement A158705
- minimum: A036554, complement A003159
- maximum: A053754, complement A053738
For just prime indices:
- length: A026424 A028260 (count A027187), complement (count A027193)
- sum: A300061 (count A058696), complement A300063 (count A058695)
- minimum: A340933 (count A026805), complement A340932 (count A026804)
- maximum: A244990 (count A027187), complement A244991 (count A027193)
A005408 lists odd numbers.
A019565 gives Heinz number of binary indices, adjoint A048675.
A029837 gives greatest binary index, least A001511.
A031368 lists odd-indexed primes, even A031215.
A048793 lists binary indices, length A000120, reverse A272020, sum A029931.
A061395 gives greatest prime index, least A055396.
A070939 gives length of binary expansion.
A112798 lists prime indices, length A001222, reverse A296150, sum A056239.

Programs

  • Mathematica
    prix[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
    bix[n_]:=Join@@Position[Reverse[IntegerDigits[n,2]],1];
    Select[Range[100],EvenQ[Total[bix[#]]+Total[prix[#]]]&]

Formula

Numbers k such that A029931(k) + A056239(k) is even.

A340929 Heinz numbers of integer partitions of odd negative rank.

Original entry on oeis.org

4, 12, 16, 18, 27, 40, 48, 60, 64, 72, 90, 100, 108, 112, 135, 150, 160, 162, 168, 192, 225, 240, 243, 250, 252, 256, 280, 288, 352, 360, 375, 378, 392, 400, 420, 432, 448, 528, 540, 567, 588, 600, 625, 630, 640, 648, 672, 700, 768, 792, 810, 832, 880, 882
Offset: 1

Views

Author

Gus Wiseman, Jan 29 2021

Keywords

Comments

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.
The Dyson rank of a nonempty partition is its maximum part minus its length. The rank of an empty partition is undefined.

Examples

			The sequence of partitions together with their Heinz numbers begins:
       4: (1,1)             150: (3,3,2,1)
      12: (2,1,1)           160: (3,1,1,1,1,1)
      16: (1,1,1,1)         162: (2,2,2,2,1)
      18: (2,2,1)           168: (4,2,1,1,1)
      27: (2,2,2)           192: (2,1,1,1,1,1,1)
      40: (3,1,1,1)         225: (3,3,2,2)
      48: (2,1,1,1,1)       240: (3,2,1,1,1,1)
      60: (3,2,1,1)         243: (2,2,2,2,2)
      64: (1,1,1,1,1,1)     250: (3,3,3,1)
      72: (2,2,1,1,1)       252: (4,2,2,1,1)
      90: (3,2,2,1)         256: (1,1,1,1,1,1,1,1)
     100: (3,3,1,1)         280: (4,3,1,1,1)
     108: (2,2,2,1,1)       288: (2,2,1,1,1,1,1)
     112: (4,1,1,1,1)       352: (5,1,1,1,1,1)
     135: (3,2,2,2)         360: (3,2,2,1,1,1)
		

Crossrefs

Note: A-numbers of Heinz-number sequences are in parentheses below.
These partitions are counted by A101707.
The positive version is A101707 (A340604).
The even version is A101708 (A340930).
The not necessarily odd version is A064173 (A340788).
A001222 counts prime factors.
A027193 counts partitions of odd length (A026424).
A047993 counts balanced partitions (A106529).
A058695 counts partitions of odd numbers (A300063).
A061395 selects the maximum prime index.
A063995/A105806 count partitions by Dyson rank.
A072233 counts partitions by sum and length.
A112798 lists the prime indices of each positive integer.
A168659 counts partitions whose length is divisible by maximum.
A200750 counts partitions whose length and maximum are relatively prime.
- Rank -
A064174 counts partitions of nonnegative/nonpositive rank (A324562/A324521).
A101198 counts partitions of rank 1 (A325233).
A257541 gives the rank of the partition with Heinz number n.
A324516 counts partitions with rank equal to maximum minus minimum part (A324515).
A324518 counts partitions with rank equal to greatest part (A324517).
A324520 counts partitions with rank equal to least part (A324519).
A340601 counts partitions of even rank (A340602).
A340692 counts partitions of odd rank (A340603).

Programs

  • Mathematica
    rk[n_]:=PrimePi[FactorInteger[n][[-1,1]]]-PrimeOmega[n];
    Select[Range[2,100],OddQ[rk[#]]&&rk[#]<0&]

Formula

For all terms, A061395(a(n)) - A001222(a(n)) is odd and negative.

A340930 Heinz numbers of integer partitions of even negative rank.

Original entry on oeis.org

8, 24, 32, 36, 54, 80, 81, 96, 120, 128, 144, 180, 200, 216, 224, 270, 300, 320, 324, 336, 384, 405, 450, 480, 486, 500, 504, 512, 560, 576, 675, 704, 720, 729, 750, 756, 784, 800, 840, 864, 896, 1056, 1080, 1125, 1134, 1176, 1200, 1250, 1260, 1280, 1296, 1344
Offset: 1

Views

Author

Gus Wiseman, Jan 30 2021

Keywords

Comments

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.
The Dyson rank of a nonempty partition is its maximum part minus its length. The rank of an empty partition is undefined.

Examples

			The sequence of partitions together with their Heinz numbers begins:
       8: (1,1,1)             270: (3,2,2,2,1)
      24: (2,1,1,1)           300: (3,3,2,1,1)
      32: (1,1,1,1,1)         320: (3,1,1,1,1,1,1)
      36: (2,2,1,1)           324: (2,2,2,2,1,1)
      54: (2,2,2,1)           336: (4,2,1,1,1,1)
      80: (3,1,1,1,1)         384: (2,1,1,1,1,1,1,1)
      81: (2,2,2,2)           405: (3,2,2,2,2)
      96: (2,1,1,1,1,1)       450: (3,3,2,2,1)
     120: (3,2,1,1,1)         480: (3,2,1,1,1,1,1)
     128: (1,1,1,1,1,1,1)     486: (2,2,2,2,2,1)
     144: (2,2,1,1,1,1)       500: (3,3,3,1,1)
     180: (3,2,2,1,1)         504: (4,2,2,1,1,1)
     200: (3,3,1,1,1)         512: (1,1,1,1,1,1,1,1,1)
     216: (2,2,2,1,1,1)       560: (4,3,1,1,1,1)
     224: (4,1,1,1,1,1)       576: (2,2,1,1,1,1,1,1)
		

Crossrefs

Note: A-numbers of Heinz-number sequences are in parentheses below.
These partitions are counted by A101708.
The positive version is (A340605).
The odd version is A101707 (A340929).
The not necessarily even version is A064173 (A340788).
A001222 counts prime factors.
A027187 counts partitions of even length.
A047993 counts balanced partitions (A106529).
A056239 adds up prime indices.
A058696 counts partitions of even numbers.
A061395 selects the maximum prime index.
A063995/A105806 count partitions by Dyson rank.
A072233 counts partitions by sum and length.
A112798 lists the prime indices of each positive integer.
A168659 counts partitions whose length is divisible by maximum.
A200750 counts partitions whose length and maximum are relatively prime.
- Rank -
A064174 counts partitions of nonnegative/nonpositive rank (A324562/A324521).
A101198 counts partitions of rank 1 (A325233).
A257541 gives the rank of the partition with Heinz number n.
A324520 counts partitions with rank equal to least part (A324519).
A340601 counts partitions of even rank (A340602).
A340692 counts partitions of odd rank (A340603).

Programs

  • Mathematica
    rk[n_]:=PrimePi[FactorInteger[n][[-1,1]]]-PrimeOmega[n];
    Select[Range[2,100],EvenQ[rk[#]]&&rk[#]<0&]

A346634 Number of strict odd-length integer partitions of 2n + 1.

Original entry on oeis.org

1, 1, 1, 2, 4, 6, 9, 14, 19, 27, 38, 52, 71, 96, 128, 170, 224, 293, 380, 491, 630, 805, 1024, 1295, 1632, 2048, 2560, 3189, 3958, 4896, 6038, 7424, 9100, 11125, 13565, 16496, 20013, 24223, 29250, 35244, 42378, 50849, 60896, 72789, 86841, 103424, 122960, 145937
Offset: 0

Views

Author

Gus Wiseman, Aug 01 2021

Keywords

Examples

			The a(0) = 1 through a(7) = 14 partitions:
  (1)  (3)  (5)  (7)      (9)      (11)     (13)      (15)
                 (4,2,1)  (4,3,2)  (5,4,2)  (6,4,3)   (6,5,4)
                          (5,3,1)  (6,3,2)  (6,5,2)   (7,5,3)
                          (6,2,1)  (6,4,1)  (7,4,2)   (7,6,2)
                                   (7,3,1)  (7,5,1)   (8,4,3)
                                   (8,2,1)  (8,3,2)   (8,5,2)
                                            (8,4,1)   (8,6,1)
                                            (9,3,1)   (9,4,2)
                                            (10,2,1)  (9,5,1)
                                                      (10,3,2)
                                                      (10,4,1)
                                                      (11,3,1)
                                                      (12,2,1)
                                                      (5,4,3,2,1)
		

Crossrefs

Odd bisection of A067659, which is ranked by A030059.
The even version is the even bisection of A067661.
The case of all odd parts is counted by A069911 (non-strict: A078408).
The non-strict version is A160786, ranked by A340931.
The non-strict even version is A236913, ranked by A340784.
The even-length version is A343942 (non-strict: A236914).
The even-sum version is A344650 (non-strict: A236559 or A344611).
A000009 counts partitions with all odd parts, ranked by A066208.
A000009 counts strict partitions, ranked by A005117.
A027193 counts odd-length partitions, ranked by A026424.
A027193 counts odd-maximum partitions, ranked by A244991.
A058695 counts partitions of odd numbers, ranked by A300063.
A340385 counts partitions with odd length and maximum, ranked by A340386.
Other cases of odd length:
- A024429 set partitions
- A089677 ordered set partitions
- A166444 compositions
- A174726 ordered factorizations
- A332304 strict compositions
- A339890 factorizations

Programs

  • Maple
    b:= proc(n, i, t) option remember; `if`(n>i*(i+1)/2, 0,
         `if`(n=0, t, add(b(n-i*j, i-1, abs(t-j)), j=0..min(n/i, 1))))
        end:
    a:= n-> b(2*n+1$2, 0):
    seq(a(n), n=0..80);  # Alois P. Heinz, Aug 05 2021
  • Mathematica
    Table[Length[Select[IntegerPartitions[2n+1],UnsameQ@@#&&OddQ[Length[#]]&]],{n,0,15}]

Extensions

More terms from Alois P. Heinz, Aug 05 2021

A341448 Heinz numbers of integer partitions of type OO.

Original entry on oeis.org

6, 14, 15, 24, 26, 33, 35, 38, 51, 54, 56, 58, 60, 65, 69, 74, 77, 86, 93, 95, 96, 104, 106, 119, 122, 123, 126, 132, 135, 140, 141, 142, 143, 145, 150, 152, 158, 161, 177, 178, 185, 201, 202, 204, 209, 214, 215, 216, 217, 219, 221, 224, 226, 232, 234, 240
Offset: 1

Views

Author

Gus Wiseman, Feb 15 2021

Keywords

Comments

These partitions are defined to have an odd number of odd parts and an odd number of even parts. They also have even length and odd sum.

Examples

			The sequence of partitions together with their Heinz numbers begins:
      6: (2,1)         74: (12,1)           141: (15,2)
     14: (4,1)         77: (5,4)            142: (20,1)
     15: (3,2)         86: (14,1)           143: (6,5)
     24: (2,1,1,1)     93: (11,2)           145: (10,3)
     26: (6,1)         95: (8,3)            150: (3,3,2,1)
     33: (5,2)         96: (2,1,1,1,1,1)    152: (8,1,1,1)
     35: (4,3)        104: (6,1,1,1)        158: (22,1)
     38: (8,1)        106: (16,1)           161: (9,4)
     51: (7,2)        119: (7,4)            177: (17,2)
     54: (2,2,2,1)    122: (18,1)           178: (24,1)
     56: (4,1,1,1)    123: (13,2)           185: (12,3)
     58: (10,1)       126: (4,2,2,1)        201: (19,2)
     60: (3,2,1,1)    132: (5,2,1,1)        202: (26,1)
     65: (6,3)        135: (3,2,2,2)        204: (7,2,1,1)
     69: (9,2)        140: (4,3,1,1)        209: (8,5)
		

Crossrefs

Note: A-numbers of ranking sequences are in parentheses below.
The case of odd parts, length, and sum is counted by A078408 (A300272).
The type EE version is A236913 (A340784).
These partitions (for odd n) are counted by A236914.
A000009 counts partitions into odd parts (A066208).
A026804 counts partitions whose least part is odd (A340932).
A027193 counts partitions of odd length/maximum (A026424/A244991).
A058695 counts partitions of odd numbers (A300063).
A160786 counts odd-length partitions of odd numbers (A340931).
A340101 counts factorizations into odd factors.
A340385 counts partitions of odd length and maximum (A340386).
A340601 counts partitions of even rank (A340602).
A340692 counts partitions of odd rank (A340603).

Programs

  • Mathematica
    primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
    Select[Range[100],OddQ[Count[primeMS[#],?EvenQ]]&&OddQ[Count[primeMS[#],?OddQ]]&]

A341449 Heinz numbers of integer partitions into odd parts > 1.

Original entry on oeis.org

1, 5, 11, 17, 23, 25, 31, 41, 47, 55, 59, 67, 73, 83, 85, 97, 103, 109, 115, 121, 125, 127, 137, 149, 155, 157, 167, 179, 187, 191, 197, 205, 211, 227, 233, 235, 241, 253, 257, 269, 275, 277, 283, 289, 295, 307, 313, 331, 335, 341, 347, 353, 365, 367, 379, 389
Offset: 1

Views

Author

Gus Wiseman, Feb 15 2021

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.

Examples

			The sequence of partitions together with their Heinz numbers begins:
      1: ()        97: (25)       197: (45)       307: (63)
      5: (3)      103: (27)       205: (13,3)     313: (65)
     11: (5)      109: (29)       211: (47)       331: (67)
     17: (7)      115: (9,3)      227: (49)       335: (19,3)
     23: (9)      121: (5,5)      233: (51)       341: (11,5)
     25: (3,3)    125: (3,3,3)    235: (15,3)     347: (69)
     31: (11)     127: (31)       241: (53)       353: (71)
     41: (13)     137: (33)       253: (9,5)      365: (21,3)
     47: (15)     149: (35)       257: (55)       367: (73)
     55: (5,3)    155: (11,3)     269: (57)       379: (75)
     59: (17)     157: (37)       275: (5,3,3)    389: (77)
     67: (19)     167: (39)       277: (59)       391: (9,7)
     73: (21)     179: (41)       283: (61)       401: (79)
     83: (23)     187: (7,5)      289: (7,7)      415: (23,3)
     85: (7,3)    191: (43)       295: (17,3)     419: (81)
		

Crossrefs

Note: A-numbers of ranking sequences are in parentheses below.
Partitions with no ones are A002865 (A005408).
The case of even parts is A035363 (A066207).
These partitions are counted by A087897.
The version for factorizations is A340101.
A000009 counts partitions into odd parts (A066208).
A001222 counts prime factors.
A027193 counts partitions of odd length/maximum (A026424/A244991).
A056239 adds up prime indices.
A078408 counts partitions with odd parts, length, and sum (A300272).
A112798 lists the prime indices of each positive integer.
A257991/A257992 count odd/even prime indices.

Programs

  • Mathematica
    primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
    Select[Range[100],OddQ[#]&&OddQ[Times@@primeMS[#]]&]
Previous Showing 21-28 of 28 results.