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

A340831 Number of factorizations of n into factors > 1 with odd greatest factor.

Original entry on oeis.org

0, 0, 1, 0, 1, 1, 1, 0, 2, 1, 1, 1, 1, 1, 2, 0, 1, 2, 1, 2, 2, 1, 1, 1, 2, 1, 3, 2, 1, 2, 1, 0, 2, 1, 2, 3, 1, 1, 2, 2, 1, 3, 1, 2, 4, 1, 1, 1, 2, 2, 2, 2, 1, 4, 2, 2, 2, 1, 1, 4, 1, 1, 4, 0, 2, 3, 1, 2, 2, 2, 1, 4, 1, 1, 4, 2, 2, 3, 1, 3, 5, 1, 1, 5, 2, 1, 2, 3, 1, 5, 2, 2, 2, 1, 2, 1, 1, 2, 4, 4, 1, 3, 1, 3, 5, 1, 1, 6
Offset: 1

Views

Author

Gus Wiseman, Feb 04 2021

Keywords

Examples

			The a(n) factorizations for n = 45, 108, 135, 180, 252:
  (45)      (4*27)        (135)       (4*45)        (4*63)
  (5*9)     (2*6*9)       (3*45)      (12*15)       (12*21)
  (3*15)    (3*4*9)       (5*27)      (4*5*9)       (4*7*9)
  (3*3*5)   (2*2*27)      (9*15)      (2*2*45)      (6*6*7)
            (2*2*3*9)     (3*5*9)     (2*6*15)      (2*2*63)
            (2*2*3*3*3)   (3*3*15)    (3*4*15)      (2*6*21)
                          (3*3*3*5)   (2*2*5*9)     (3*4*21)
                                      (3*3*4*5)     (2*2*7*9)
                                      (2*2*3*15)    (2*3*6*7)
                                      (2*2*3*3*5)   (3*3*4*7)
                                                    (2*2*3*21)
                                                    (2*2*3*3*7)
		

Crossrefs

Positions of 0's are A000079.
The version for partitions is A027193.
The version for prime indices is A244991.
The version looking at length instead of greatest factor is A339890.
The version that also has odd length is A340607.
The version looking at least factor is A340832.
- Factorizations -
A001055 counts factorizations.
A045778 counts strict factorizations.
A316439 counts factorizations by product and length.
A340101 counts factorizations into odd factors, odd-length case A340102.
A340653 counts balanced factorizations.
- Odd -
A000009 counts partitions into odd parts.
A024429 counts set partitions of odd length.
A026424 lists numbers with odd Omega.
A058695 counts partitions of odd numbers.
A066208 lists numbers with odd-indexed prime factors.
A067659 counts strict partitions of odd length (A030059).
A174726 counts ordered factorizations of odd length.
A340692 counts partitions of odd rank.

Programs

  • Mathematica
    facs[n_]:=If[n<=1,{{}},Join@@Table[Map[Prepend[#,d]&,Select[facs[n/d],Min@@#>=d&]],{d,Rest[Divisors[n]]}]];
    Table[Length[Select[facs[n],OddQ@*Max]],{n,100}]
  • PARI
    A340831(n, m=n, fc=1) = if(1==n, !fc, my(s=0); fordiv(n, d, if((d>1)&&(d<=m)&&(!fc||(d%2)), s += A340831(n/d, d, 0*fc))); (s)); \\ Antti Karttunen, Dec 13 2021

Extensions

Data section extended up to 108 terms by Antti Karttunen, Dec 13 2021

A340933 Numbers whose least prime index is even. Heinz numbers of integer partitions whose last part is even.

Original entry on oeis.org

3, 7, 9, 13, 15, 19, 21, 27, 29, 33, 37, 39, 43, 45, 49, 51, 53, 57, 61, 63, 69, 71, 75, 77, 79, 81, 87, 89, 91, 93, 99, 101, 105, 107, 111, 113, 117, 119, 123, 129, 131, 133, 135, 139, 141, 147, 151, 153, 159, 161, 163, 165, 169, 171, 173, 177, 181, 183
Offset: 1

Views

Author

Gus Wiseman, Feb 12 2021

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. 1 has no prime indices so is not counted.

Examples

			The sequence of terms together with their prime indices begins:
      3: {2}         51: {2,7}         99: {2,2,5}
      7: {4}         53: {16}         101: {26}
      9: {2,2}       57: {2,8}        105: {2,3,4}
     13: {6}         61: {18}         107: {28}
     15: {2,3}       63: {2,2,4}      111: {2,12}
     19: {8}         69: {2,9}        113: {30}
     21: {2,4}       71: {20}         117: {2,2,6}
     27: {2,2,2}     75: {2,3,3}      119: {4,7}
     29: {10}        77: {4,5}        123: {2,13}
     33: {2,5}       79: {22}         129: {2,14}
     37: {12}        81: {2,2,2,2}    131: {32}
     39: {2,6}       87: {2,10}       133: {4,8}
     43: {14}        89: {24}         135: {2,2,2,3}
     45: {2,2,3}     91: {4,6}        139: {34}
     49: {4,4}       93: {2,11}       141: {2,15}
		

Crossrefs

These partitions are counted by A026805.
Looking at length or at maximum gives A028260/A244990, counted by A027187.
If all prime indices are even we get A066207, counted by A035363.
The complement is {1} \/ A340932, counted by A026804.
A001222 counts prime factors.
A005843 lists even numbers.
A031215 lists even-indexed primes.
A055396 selects least prime index.
A056239 adds up prime indices.
A058695 counts partitions of even numbers, ranked by A300061.
A061395 selects greatest prime index.
A112798 lists the prime indices of each positive integer.

Programs

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

Formula

A055396(a(n)) belongs to A005843.
Closed under multiplication.

A340851 Number of factorizations of n such that every factor is a divisor of the number of factors.

Original entry on oeis.org

1, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
Offset: 1

Views

Author

Gus Wiseman, Feb 04 2021

Keywords

Comments

Also factorizations whose number of factors is divisible by their least common multiple.

Examples

			The a(n) factorizations for n = 8192, 46656, 73728:
  2*2*2*2*2*4*8*8          6*6*6*6*6*6              2*2*2*2*2*2*2*2*2*4*6*6
  2*2*2*2*4*4*4*8          2*2*2*2*2*2*3*3*3*3*3*3  2*2*2*2*2*2*2*2*3*4*4*6
  2*2*2*4*4*4*4*4                                   2*2*2*2*2*2*2*3*3*4*4*4
  2*2*2*2*2*2*2*2*2*2*2*4                           2*2*2*2*2*2*2*2*2*2*6*12
                                                    2*2*2*2*2*2*2*2*2*3*4*12
		

Crossrefs

The version for partitions is A340693, with reciprocal version A143773.
Positions of nonzero terms are A340852.
The reciprocal version is A340853.
A320911 can be factored into squarefree semiprimes.
A340597 have an alt-balanced factorization.
A340656 lack a twice-balanced factorization, complement A340657.
- Factorizations -
A001055 counts factorizations, with strict case A045778.
A316439 counts factorizations by product and length.
A339846 counts factorizations of even length.
A339890 counts factorizations of odd length.
A340101 counts factorizations into odd factors, odd-length case A340102.
A340653 counts balanced factorizations.
A340785 counts factorizations into even numbers, even-length case A340786.
A340831/A340832 count factorizations with odd maximum/minimum.
A340854 cannot be factored with odd least factor, complement A340855.

Programs

  • Mathematica
    facs[n_]:=If[n<=1,{{}},Join@@Table[Map[Prepend[#,d]&,Select[facs[n/d],Min@@#>=d&]],{d,Rest[Divisors[n]]}]];
    Table[Length[Select[facs[n],And@@IntegerQ/@(Length[#]/#)&]],{n,100}]

A340853 Number of factorizations of n such that every factor is a multiple of the number of factors.

Original entry on oeis.org

0, 1, 1, 2, 1, 1, 1, 2, 1, 1, 1, 2, 1, 1, 1, 3, 1, 1, 1, 2, 1, 1, 1, 3, 1, 1, 2, 2, 1, 1, 1, 3, 1, 1, 1, 3, 1, 1, 1, 3, 1, 1, 1, 2, 1, 1, 1, 4, 1, 1, 1, 2, 1, 2, 1, 3, 1, 1, 1, 3, 1, 1, 1, 4, 1, 1, 1, 2, 1, 1, 1, 4, 1, 1, 1, 2, 1, 1, 1, 4, 2, 1, 1, 3, 1, 1, 1
Offset: 1

Views

Author

Gus Wiseman, Feb 04 2021

Keywords

Comments

Also factorizations whose greatest common divisor is a multiple of the number of factors.

Examples

			The a(n) factorizations for n = 2, 4, 16, 48, 96, 144, 216, 240, 432:
  2   4     16    48     96     144     216      240     432
      2*2   2*8   6*8    2*48   2*72    4*54     4*60    6*72
            4*4   2*24   4*24   4*36    6*36     6*40    8*54
                  4*12   6*16   6*24    12*18    8*30    12*36
                         8*12   8*18    2*108    10*24   18*24
                                12*12   6*6*6    12*20   2*216
                                        3*3*24   2*120   4*108
                                        3*6*12           3*3*48
                                                         3*6*24
                                                         6*6*12
                                                         3*12*12
		

Crossrefs

Positions of 1's are A048103.
Positions of terms > 1 are A100716.
The version for partitions is A143773 (A316428).
The reciprocal for partitions is A340693 (A340606).
The version for strict partitions is A340830.
The reciprocal version is A340851.
A320911 can be factored into squarefree semiprimes.
A340597 have an alt-balanced factorization.
A340656 lack a twice-balanced factorization, complement A340657.
- Factorizations -
A001055 counts factorizations, with strict case A045778.
A316439 counts factorizations by product and length.
A339846 counts factorizations of even length.
A339890 counts factorizations of odd length.
A340101 counts factorizations into odd factors, odd-length case A340102.
A340653 counts balanced factorizations.
A340785 counts factorizations into even factors, even-length case A340786.
A340831/A340832 counts factorizations with odd maximum/minimum.
A340854 cannot be factored with odd least factor, complement A340855.

Programs

  • Mathematica
    facs[n_]:=If[n<=1,{{}},Join@@Table[Map[Prepend[#,d]&,Select[facs[n/d],Min@@#>=d&]],{d,Rest[Divisors[n]]}]];
    Table[Length[Select[facs[n],n>1&&Divisible[GCD@@#,Length[#]]&]],{n,100}]

A342081 Numbers without an inferior odd divisor > 1.

Original entry on oeis.org

1, 2, 3, 4, 5, 6, 7, 8, 10, 11, 13, 14, 16, 17, 19, 20, 22, 23, 26, 28, 29, 31, 32, 34, 37, 38, 41, 43, 44, 46, 47, 52, 53, 58, 59, 61, 62, 64, 67, 68, 71, 73, 74, 76, 79, 82, 83, 86, 88, 89, 92, 94, 97, 101, 103, 104, 106, 107, 109, 113, 116, 118, 122, 124
Offset: 1

Views

Author

Gus Wiseman, Mar 06 2021

Keywords

Comments

We define a divisor d|n to be inferior if d <= n/d. Inferior divisors are counted by A038548 and listed by A161906.
Numbers n such that n is either a power of 2 or has a single odd prime factor > sqrt(n). Equivalently, numbers n such that all odd prime factors are > sqrt(n). - Chai Wah Wu, Mar 08 2021

Examples

			The divisors > 1 of 72 are {2, 3, 4, 6, 8, 9, 12, 18, 24, 36, 72}, of which {3, 9} are odd and {2, 3, 4, 6, 8} are inferior, with intersection {3}, so 72 is not in the sequence.
		

Crossrefs

The strictly inferior version is the same with A001248 added.
Positions of 1's in A069288.
The superior version is A116882, with complement A116883.
The complement is A342082.
A006530 selects the greatest prime factor.
A020639 selects the smallest prime factor.
A038548 counts superior (or inferior) divisors, with strict case A056924.
- Odd -
A000009 counts partitions into odd parts, ranked by A066208.
A001227 counts odd divisors.
A026424 lists numbers with odd Omega.
A027193 counts odd-length partitions.
A058695 counts partitions of odd numbers.
A067659 counts strict partitions of odd length, ranked by A030059.
A340101 counts factorizations into odd factors; A340102 also has odd length.
A340854/A340855 cannot/can be factored with odd minimum factor.
A341594 counts strictly superior odd divisors
A341675 counts superior odd divisors.
- Inferior: A033676, A066839, A161906.
- Strictly Inferior A333805, A341674.
- Strictly Superior: A064052/A048098, A341645/A341646.

Programs

  • Mathematica
    Select[Range[100],Function[n,Select[Divisors[n]//Rest,OddQ[#]&&#<=n/#&]=={}]]
  • PARI
    is(n) = #select(x -> x > 2 && x^2 <= n, factor(n)[, 1]) == 0; \\ Amiram Eldar, Nov 01 2024
  • Python
    from sympy import primefactors
    A342081_list = [n for n in range(1,10**3) if len([p for p in primefactors(n) if p > 2 and p*p <= n]) == 0] # Chai Wah Wu, Mar 08 2021
    

A341447 Heinz numbers of integer partitions whose only even part is the smallest.

Original entry on oeis.org

3, 7, 13, 15, 19, 29, 33, 37, 43, 51, 53, 61, 69, 71, 75, 77, 79, 89, 93, 101, 107, 113, 119, 123, 131, 139, 141, 151, 161, 163, 165, 173, 177, 181, 193, 199, 201, 217, 219, 221, 223, 229, 239, 249, 251, 255, 263, 271, 281, 287, 291, 293, 299, 309, 311, 317
Offset: 1

Views

Author

Gus Wiseman, Feb 13 2021

Keywords

Comments

The Heinz number of a partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k), so these are numbers whose only even prime index (counting multiplicity) is the smallest.

Examples

			The sequence of partitions together with their Heinz numbers begins:
      3: (2)         77: (5,4)     165: (5,3,2)
      7: (4)         79: (22)      173: (40)
     13: (6)         89: (24)      177: (17,2)
     15: (3,2)       93: (11,2)    181: (42)
     19: (8)        101: (26)      193: (44)
     29: (10)       107: (28)      199: (46)
     33: (5,2)      113: (30)      201: (19,2)
     37: (12)       119: (7,4)     217: (11,4)
     43: (14)       123: (13,2)    219: (21,2)
     51: (7,2)      131: (32)      221: (7,6)
     53: (16)       139: (34)      223: (48)
     61: (18)       141: (15,2)    229: (50)
     69: (9,2)      151: (36)      239: (52)
     71: (20)       161: (9,4)     249: (23,2)
     75: (3,3,2)    163: (38)      251: (54)
		

Crossrefs

These partitions are counted by A087897, shifted left once.
Terms of A340933 can be factored into elements of this sequence.
The odd version is A341446.
A000009 counts partitions into odd parts, ranked by A066208.
A001222 counts prime factors.
A005843 lists even numbers.
A026804 counts partitions whose least part is odd, ranked by A340932.
A026805 counts partitions whose least part is even, ranked by A340933.
A027187 counts partitions with even length/max, ranked by A028260/A244990.
A031215 lists even-indexed primes.
A055396 selects least prime index.
A056239 adds up prime indices.
A058696 counts partitions of even numbers, ranked by A300061.
A061395 selects greatest prime index.
A066207 lists numbers with all even prime indices.
A112798 lists the prime indices of each positive integer.

Programs

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

A342082 Numbers with an inferior odd divisor > 1.

Original entry on oeis.org

9, 12, 15, 18, 21, 24, 25, 27, 30, 33, 35, 36, 39, 40, 42, 45, 48, 49, 50, 51, 54, 55, 56, 57, 60, 63, 65, 66, 69, 70, 72, 75, 77, 78, 80, 81, 84, 85, 87, 90, 91, 93, 95, 96, 98, 99, 100, 102, 105, 108, 110, 111, 112, 114, 115, 117, 119, 120, 121, 123, 125
Offset: 1

Views

Author

Gus Wiseman, Mar 06 2021

Keywords

Comments

We define a divisor d|n to be inferior if d <= n/d. Inferior divisors are counted by A038548 and listed by A161906.
Numbers n with an odd prime factor <= sqrt(n). - Chai Wah Wu, Mar 09 2021

Examples

			The divisors > 1 of 72 are {2, 3, 4, 6, 8, 9, 12, 18, 24, 36, 72}, of which {3, 9} are odd and {2, 3, 4, 6, 8} are inferior, with intersection {3}, so 72 is in the sequence.
		

Crossrefs

The strictly inferior version is the same with A001248 removed.
Positions of terms > 1 in A069288.
The superior version is A116882, with complement A116883.
The complement is A342081.
A006530 selects the greatest prime factor.
A020639 selects the smallest prime factor.
A038548 counts superior (or inferior) divisors, with strict case A056924.
- Odd -
A000009 counts partitions into odd parts, ranked by A066208.
A001227 counts odd divisors.
A026424 lists numbers with odd Omega.
A027193 counts odd-length partitions.
A058695 counts partitions of odd numbers.
A067659 counts strict partitions of odd length, ranked by A030059.
A340101 counts factorizations into odd factors; A340102 also has odd length.
A340854/A340855 cannot/can be factored with odd minimum factor.
A341594 counts strictly superior odd divisors
A341675 counts superior odd divisors.
- Inferior: A033676, A066839, A161906.
- Strictly Inferior A333805, A341674.
- Strictly Superior: A064052/A048098, A341645/A341646.

Programs

  • Mathematica
    Select[Range[100],Function[n,Select[Divisors[n]//Rest,OddQ[#]&&#<=n/#&]!={}]]
  • PARI
    is(n) = #select(x -> x > 2 && x^2 <= n, factor(n)[, 1]) > 0; \\ Amiram Eldar, Nov 01 2024
  • Python
    from sympy import primefactors
    A342082_list = [n for n in range(1,10**3) if len([p for p in primefactors(n) if p > 2 and p*p <= n]) > 0] # Chai Wah Wu, Mar 09 2021
    

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.

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 11-19 of 19 results.