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.

Showing 1-4 of 4 results.

A331050 Positive integers whose number of factorizations into factors > 1 (A001055) is odd.

Original entry on oeis.org

1, 2, 3, 5, 7, 8, 11, 13, 16, 17, 19, 23, 24, 27, 29, 30, 31, 32, 36, 37, 40, 41, 42, 43, 47, 53, 54, 56, 59, 60, 61, 64, 66, 67, 70, 71, 73, 78, 79, 81, 83, 84, 88, 89, 90, 96, 97, 100, 101, 102, 103, 104, 105, 107, 109, 110, 113, 114, 120, 125, 126, 127, 128
Offset: 1

Views

Author

Gus Wiseman, Jan 10 2020

Keywords

Comments

First differs from A319239 in lacking 256.

Crossrefs

Complement of A331051.
The version for powers of two (instead of odds) is A330977.
The version for primes (instead of odds) is A330991.

Programs

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

A331201 Numbers k such that the number of factorizations of k into distinct factors > 1 is a prime number.

Original entry on oeis.org

6, 8, 10, 12, 14, 15, 16, 18, 20, 21, 22, 24, 26, 27, 28, 30, 32, 33, 34, 35, 36, 38, 39, 40, 42, 44, 45, 46, 48, 50, 51, 52, 54, 55, 56, 57, 58, 62, 63, 65, 66, 68, 69, 70, 74, 75, 76, 77, 78, 80, 81, 82, 85, 86, 87, 88, 91, 92, 93, 94, 95, 98, 99, 100, 102
Offset: 1

Views

Author

Gus Wiseman, Jan 12 2020

Keywords

Comments

First differs from A080257 in lacking 60.

Examples

			Strict factorizations of selected terms:
  (6)    (12)   (24)     (48)     (216)
  (2*3)  (2*6)  (3*8)    (6*8)    (3*72)
         (3*4)  (4*6)    (2*24)   (4*54)
                (2*12)   (3*16)   (6*36)
                (2*3*4)  (4*12)   (8*27)
                         (2*3*8)  (9*24)
                         (2*4*6)  (12*18)
                                  (2*108)
                                  (3*8*9)
                                  (4*6*9)
                                  (2*3*36)
                                  (2*4*27)
                                  (2*6*18)
                                  (2*9*12)
                                  (3*4*18)
                                  (3*6*12)
                                  (2*3*4*9)
		

Crossrefs

The version for strict integer partitions is A035359.
The version for integer partitions is A046063.
The version for set partitions is A051130.
The non-strict version is A330991.
Factorizations are A001055 with image A045782 and complement A330976.
Strict factorizations are A045778 with image A045779 and complement A330975.
Numbers whose number of strict factorizations is odd are A331230.
Numbers whose number of strict factorizations is even are A331231.
The least number with n strict factorizations is A330974(n).

Programs

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

A331230 Numbers k such that the number of factorizations of k into distinct factors > 1 is odd.

Original entry on oeis.org

1, 2, 3, 4, 5, 7, 9, 11, 12, 13, 17, 18, 19, 20, 23, 24, 25, 28, 29, 30, 31, 32, 36, 37, 40, 41, 42, 43, 44, 45, 47, 48, 49, 50, 52, 53, 54, 56, 59, 60, 61, 63, 66, 67, 68, 70, 71, 72, 73, 75, 76, 78, 79, 80, 83, 84, 88, 89, 90, 92, 97, 98, 99, 100, 101, 102
Offset: 1

Views

Author

Gus Wiseman, Jan 12 2020

Keywords

Comments

First differs from A319237 in lacking 300.

Crossrefs

The version for strict integer partitions is A001318.
The version for integer partitions is A052002.
The version for set partitions appears to be A032766.
The non-strict version is A331050.
The version for primes (instead of odds) is A331201.
The even version is A331231.
Factorizations are A001055 with image A045782 and complement A330976.
Strict factorizations are A045778 with image A045779 and complement A330975.
The least number with n strict factorizations is A330974(n).

Programs

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

A331231 Numbers k such that the number of factorizations of k into distinct factors > 1 is even.

Original entry on oeis.org

6, 8, 10, 14, 15, 16, 21, 22, 26, 27, 33, 34, 35, 38, 39, 46, 51, 55, 57, 58, 62, 64, 65, 69, 74, 77, 81, 82, 85, 86, 87, 91, 93, 94, 95, 96, 106, 111, 115, 118, 119, 120, 122, 123, 125, 129, 133, 134, 141, 142, 143, 144, 145, 146, 155, 158, 159, 160, 161, 166
Offset: 1

Views

Author

Gus Wiseman, Jan 12 2020

Keywords

Comments

First differs from A319238 in having 300.

Crossrefs

The version for integer partitions is A001560.
The version for strict integer partitions is A090864.
The version for set partitions appears to be A016789.
The non-strict version is A331051.
The version for primes (instead of evens) is A331201.
The odd version is A331230.
Factorizations are A001055 with image A045782 and complement A330976.
Strict factorizations are A045778 with image A045779 and complement A330975.
The least number with n strict factorizations is A330974(n).

Programs

  • Mathematica
    strfacs[n_]:=If[n<=1,{{}},Join@@Table[Map[Prepend[#,d]&,Select[strfacs[n/d],Min@@#>d&]],{d,Rest[Divisors[n]]}]];
    Select[Range[100],EvenQ[Length[strfacs[#]]]&]
Showing 1-4 of 4 results.