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 31-35 of 35 results.

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).
Cf. A035359, A045780, A318286, A328966, A330991, A330997, A331051, A331200, A331232.

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).
Cf. A001318, A045780, A045783, A318286, A328966, A330973, A330991, A330997, A331022, A331023/A331024, A331050, A331200, A331232.

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[#]]]&]

A331049 Number of factorizations of A055932(n), the least representative of the n'th distinct unsorted prime signature, into factors > 1.

Original entry on oeis.org

1, 1, 2, 2, 3, 4, 5, 4, 7, 5, 7, 9, 12, 7, 11, 11, 16, 11, 19, 16, 21, 15, 29, 11, 12, 26, 30, 15, 31, 38, 22, 21, 47, 26, 29, 52, 45, 36, 57, 26, 64, 19, 30, 52, 77, 52, 36, 57, 98, 21, 67, 38, 74, 97, 66, 105, 47, 42, 36, 109, 118, 98, 92, 109, 52, 171, 30
Offset: 1

Views

Author

Gus Wiseman, Jan 10 2020

Keywords

Comments

A factorization of n is a finite, nondecreasing sequence of positive integers > 1 with product n. Factorizations are counted by A001055.
The unsorted prime signature of A055932(n) is given by row n of A124829.

Examples

			The a(1) = 1 through a(11) = 7 factorizations:
  {}  2  4    6    8      12     16       18     24       30     32
         2*2  2*3  2*4    2*6    2*8      2*9    3*8      5*6    4*8
                   2*2*2  3*4    4*4      3*6    4*6      2*15   2*16
                          2*2*3  2*2*4    2*3*3  2*12     3*10   2*2*8
                                 2*2*2*2         2*2*6    2*3*5  2*4*4
                                                 2*3*4           2*2*2*4
                                                 2*2*2*3         2*2*2*2*2

Crossrefs

The sorted-signature version is A050322.
This sequence has range A045782.
Factorizations are A001055.
Cf. A025487, A033833, A045778, A045783, A070175, A181821, A325238, A330972, A330973, A330976, A330989, A330990, A330998, A331050.

Programs

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

Formula

a(n) = A001055(A055932(n)).

A383310 Number of ways to choose a strict multiset partition of a factorization of n into factors > 1.

Original entry on oeis.org

1, 1, 1, 2, 1, 3, 1, 5, 2, 3, 1, 8, 1, 3, 3, 9, 1, 8, 1, 8, 3, 3, 1, 20, 2, 3, 5, 8, 1, 12, 1, 19, 3, 3, 3, 24, 1, 3, 3, 20, 1, 12, 1, 8, 8, 3, 1, 46, 2, 8, 3, 8, 1, 20, 3, 20, 3, 3, 1, 38, 1, 3, 8, 37, 3, 12, 1, 8, 3, 12, 1, 67, 1, 3, 8, 8, 3, 12, 1, 46, 9, 3
Offset: 1

Views

Author

Gus Wiseman, Apr 26 2025

Keywords

Examples

			The a(36) = 24 choices:
  {{2,2,3,3}}  {{2},{2,3,3}}  {{2},{3},{2,3}}
  {{2,2,9}}    {{3},{2,2,3}}  {{2},{3},{6}}
  {{2,3,6}}    {{2,2},{3,3}}
  {{2,18}}     {{2},{2,9}}
  {{3,3,4}}    {{9},{2,2}}
  {{3,12}}     {{2},{3,6}}
  {{4,9}}      {{3},{2,6}}
  {{6,6}}      {{6},{2,3}}
  {{36}}       {{2},{18}}
               {{3},{3,4}}
               {{4},{3,3}}
               {{3},{12}}
               {{4},{9}}

Crossrefs

The case of a unique choice (positions of 1) is A008578.
This is the strict case of A050336.
For distinct strict blocks we have A050345.
For integer partitions we have A261049, strict case of A001970.
For strict blocks that are not necessarily distinct we have A296119.
Twice-partitions of this type are counted by A296122.
For normal multisets we have A317776, strict case of A255906.
A001055 counts factorizations, strict A045778.
A050320 counts factorizations into squarefree numbers, distinct A050326.
A281113 counts twice-factorizations, strict A296121, see A296118, A296120.
Cf. A000009, A005117, A045782, A050342, A279785, A293243, A293511, A302494, A316439, A358914, A381992, A382201.

Programs

  • Mathematica
    facs[n_]:=If[n<=1,{{}},Join@@Table[Map[Prepend[#,d]&,Select[facs[n/d],Min@@#>=d&]],{d,Rest[Divisors[n]]}]];
sps[{}]:={{}};sps[set:{i_,_}]:=Join@@Function[s,Prepend[#,s]&/@sps[Complement[set,s]]]/@Cases[Subsets[set],{i,_}];
mps[set_]:=Union[Sort[Sort/@(#/.x_Integer:>set[[x]])]&/@sps[Range[Length[set]]]];
Table[Sum[Length[Select[mps[y],UnsameQ@@#&]],{y,facs[n]}],{n,30}]

A331198 Numbers n with exactly three times as many factorizations (A001055) as strict factorizations (A045778).

Original entry on oeis.org

128, 2187, 10368, 34992, 78125, 80000, 307328, 823543, 1250000, 1366875, 1874048, 3655808, 5250987, 6328125, 10690688, 13176688, 16681088, 19487171, 32019867, 35819648, 62462907, 62748517, 66706983, 90531968, 118210688, 182660427, 187578125, 239892608, 285012027
Offset: 1

Views

Author

Gus Wiseman, Jan 12 2020

Keywords

Comments

Contains p^7 for all primes p.

Examples

			The 15 factorizations and 5 strict factorizations of 2187:
  (2187)           (2187)
  (27*81)          (27*81)
  (3*729)          (3*729)
  (9*243)          (9*243)
  (3*9*81)         (3*9*81)
  (9*9*27)
  (3*27*27)
  (3*3*243)
  (3*9*9*9)
  (3*3*3*81)
  (3*3*9*27)
  (3*3*3*9*9)
  (3*3*3*3*27)
  (3*3*3*3*3*9)
  (3*3*3*3*3*3*3)

Crossrefs

Factorizations are A001055.
Strict factorizations are A045778.
Taking "twice" instead of "three times" gives A001248.
Cf. A045779, A045780, A045782, A045783, A330972, A331023/A331024, A331048, A331050.

Programs

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

Extensions

a(7)-(10) from Alois P. Heinz, Jan 17 2020
a(11)-a(29) from Giovanni Resta, Jan 20 2020
Previous Showing 31-35 of 35 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.