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-10 of 23 results. Next

A330972 Sorted list containing the least number with each possible nonzero number of factorizations into factors > 1.

Original entry on oeis.org

1, 4, 8, 12, 16, 24, 36, 48, 60, 72, 96, 120, 128, 144, 180, 192, 216, 240, 256, 288, 360, 384, 420, 432, 480, 576, 720, 768, 840, 864, 900, 960, 1024, 1080, 1152, 1260, 1440, 1680, 1728, 1800, 1920, 2048, 2160, 2304, 2520, 2592, 2880, 3072, 3360, 3456, 3600
Offset: 1

Views

Author

Gus Wiseman, Jan 06 2020

Keywords

Comments

This is the sorted list of positions of first appearances in A001055 of each element of the range (A045782).

Examples

			Factorizations of n for n = 4, 8, 12, 16, 24, 36, 48, 60:
  4    8      12     16       24       36       48         60
  2*2  2*4    2*6    2*8      3*8      4*9      6*8        2*30
       2*2*2  3*4    4*4      4*6      6*6      2*24       3*20
              2*2*3  2*2*4    2*12     2*18     3*16       4*15
                     2*2*2*2  2*2*6    3*12     4*12       5*12
                              2*3*4    2*2*9    2*3*8      6*10
                              2*2*2*3  2*3*6    2*4*6      2*5*6
                                       3*3*4    3*4*4      3*4*5
                                       2*2*3*3  2*2*12     2*2*15
                                                2*2*2*6    2*3*10
                                                2*2*3*4    2*2*3*5
                                                2*2*2*2*3

Links

Crossrefs

All terms belong to A025487
Includes all highly factorable numbers A033833.
Factorizations are A001055, with image A045782.
The least number with A045782(n) factorizations is A045783(n).
The least number with n factorizations is A330973(n).
The strict version is A330997.
Cf. A001222, A002033, A007716, A045778, A318284, A325238, A330935, A330936, A330976, A330977, A330989, A330991, A330992.

Programs

  • Mathematica
    nn=1000;
facs[n_]:=If[n<=1,{{}},Join@@Table[Map[Prepend[#,d]&,Select[facs[n/d],Min@@#>=d&]],{d,Rest[Divisors[n]]}]];
nds=Length/@Array[facs,nn];
Table[Position[nds,i][[1,1]],{i,First/@Gather[nds]}]

A033833 Highly factorable numbers: numbers with a record number of proper factorizations.

Original entry on oeis.org

1, 4, 8, 12, 16, 24, 36, 48, 72, 96, 120, 144, 192, 216, 240, 288, 360, 432, 480, 576, 720, 960, 1080, 1152, 1440, 2160, 2880, 4320, 5040, 5760, 7200, 8640, 10080, 11520, 12960, 14400, 15120, 17280, 20160, 25920, 28800, 30240, 34560
Offset: 1

Views

Author

Jeff Burch

Keywords

Comments

First differs from A045783 and A330972 in lacking 60.
Indices of records in A028422 or A001055.

Examples

			From _Gus Wiseman_, Jan 13 2020: (Start)
Factorizations of the initial terms:
  ()  (4)    (8)      (12)     (16)       (24)       (36)       (48)
      (2*2)  (2*4)    (2*6)    (2*8)      (3*8)      (4*9)      (6*8)
             (2*2*2)  (3*4)    (4*4)      (4*6)      (6*6)      (2*24)
                      (2*2*3)  (2*2*4)    (2*12)     (2*18)     (3*16)
                               (2*2*2*2)  (2*2*6)    (3*12)     (4*12)
                                          (2*3*4)    (2*2*9)    (2*3*8)
                                          (2*2*2*3)  (2*3*6)    (2*4*6)
                                                     (3*3*4)    (3*4*4)
                                                     (2*2*3*3)  (2*2*12)
                                                                (2*2*2*6)
                                                                (2*2*3*4)
                                                                (2*2*2*2*3)
(End)

Links

Crossrefs

All terms belong to A025487 as well as to A330972.
The corresponding records are A272691.
The strict version is A331200.
Factorizations are A001055, with image A045782 and complement A330976.
Cf. A028422, A033834, A045778, A045783, A330973, A330998, A331049, A331050.

Programs

  • Mathematica
    nn=100;
facs[n_]:=If[n<=1,{{}},Join@@Table[Map[Prepend[#,d]&,Select[facs[n/d],Min@@#>=d&]],{d,Rest[Divisors[n]]}]];
qv=Table[Length[facs[n]],{n,nn}];
Table[Position[qv,i][[1,1]],{i,qv//.{foe___,x_,y_,afe___}/;x>=y:>{foe,x,afe}}] (* Gus Wiseman, Jan 13 2020 *)

Formula

A001055(a(n)) = A272691(n). - Gus Wiseman, Jan 13 2020

A045782 Number of factorizations of n for some n (image of A001055).

Original entry on oeis.org

1, 2, 3, 4, 5, 7, 9, 11, 12, 15, 16, 19, 21, 22, 26, 29, 30, 31, 36, 38, 42, 45, 47, 52, 56, 57, 64, 66, 67, 74, 77, 92, 97, 98, 101, 105, 109, 118, 135, 137, 139, 141, 162, 165, 171, 176, 181, 189, 195, 198, 203, 212, 231, 249, 250, 254, 257, 267, 269, 272, 289
Offset: 1

Views

Author

David W. Wilson

Keywords

Comments

Also the image of A318284. - Gus Wiseman, Jan 11 2020

Links

Crossrefs

Factorizations are A001055 with image this sequence and complement A330976.
Strict factorizations are A045778 with image A045779 and complement A330975.
The least number with exactly a(n) factorizations is A045783(n).
The least number with exactly n factorizations is A330973(n).
Cf. A002033, A007716, A033833, A318284, A325238, A330935, A330936, A330977, A330989, A330991, A330992, A330997.

Programs

  • Mathematica
    terms = 61; m0 = 10^5; dm = 10^4;
f[1, ] = 1; f[n, k_] := f[n, k] = Sum[f[n/d, d], {d, Select[Divisors[n], 1 < # <= k &]}];
Clear[seq]; seq[m_] := seq[m] = Sort[Tally[Table[f[n, n], {n, 1, m}]][[All, 1]]][[1 ;; terms]]; seq[m = m0]; seq[m += dm]; While[Print[m]; seq[m] != seq[m - dm], m += dm];
seq[m] (* Jean-François Alcover, Oct 04 2018 *)

Formula

The Luca et al. paper shows that the number of terms with a(n) <= x is x^{ O( log log log x / log log x )}. - N. J. A. Sloane, Jun 12 2009

Extensions

Name edited by Gus Wiseman, Jan 11 2020

A045783 Least value with A045782(n) factorizations.

Original entry on oeis.org

1, 4, 8, 12, 16, 24, 36, 60, 48, 128, 72, 96, 120, 256, 180, 144, 192, 216, 420, 240, 1024, 384, 288, 360, 2048, 432, 480, 900, 768, 840, 576, 1260, 864, 720, 8192, 960, 1080, 1152, 4620, 1800, 3072, 1680, 1728, 1920, 1440, 32768, 2304, 2592, 6144
Offset: 1

Views

Author

David W. Wilson

Keywords

Examples

			From _Gus Wiseman_, Jan 11 2020: (Start)
Factorizations of n = 1, 4, 8, 12, 16, 24, 36, 60, 48:
  {}  4    8      12     16       24       36       60       48
      2*2  2*4    2*6    2*8      3*8      4*9      2*30     6*8
           2*2*2  3*4    4*4      4*6      6*6      3*20     2*24
                  2*2*3  2*2*4    2*12     2*18     4*15     3*16
                         2*2*2*2  2*2*6    3*12     5*12     4*12
                                  2*3*4    2*2*9    6*10     2*3*8
                                  2*2*2*3  2*3*6    2*5*6    2*4*6
                                           3*3*4    3*4*5    3*4*4
                                           2*2*3*3  2*2*15   2*2*12
                                                    2*3*10   2*2*2*6
                                                    2*2*3*5  2*2*3*4
                                                             2*2*2*2*3
(End)

Links

Crossrefs

All terms belong to A025487.
The strict version is A045780.
The sorted version is A330972.
Includes all highly factorable numbers A033833.
The least number with exactly n factorizations is A330973(n).
Factorizations are A001055 with image A045782 and complement A330976.
Strict factorizations are A045778 with image A045779 and complement A330975.
Cf. A070175, A318284, A325238, A330974, A330989, A330992, A330998.

A330973 Least positive integer with exactly n factorizations into factors > 1, and 0 if no such number exists.

Original entry on oeis.org

1, 4, 8, 12, 16, 0, 24, 0, 36, 0, 60, 48, 0, 0, 128, 72, 0, 0, 96, 0, 120, 256, 0, 0, 0, 180, 0, 0, 144, 192, 216, 0, 0, 0, 0, 420, 0, 240, 0, 0, 0, 1024, 0, 0, 384, 0, 288, 0, 0, 0, 0, 360, 0, 0, 0, 2048, 432, 0, 0, 0, 0, 0, 0, 480, 0, 900, 768, 0, 0, 0, 0, 0
Offset: 1

Views

Author

Gus Wiseman, Jan 06 2020

Keywords

Links

Crossrefs

All nonzero terms belong to A025487.
Includes all highly factorable numbers A033833.
Factorizations are A001055, with image A045782.
The version without zeros is A045783.
The sorted version is A330972.
The strict version is A330974.
Positions of zeros are A330976.
Cf. A001055, A001222, A002033, A007716, A045778, A045779, A330935, A330992, A330997, A330998, A346426.

Programs

  • Mathematica
    nn=10;
fam[n_]:=fam[n]=If[n<=1,{{}},Join@@Table[Map[Prepend[#,d]&,Select[fam[n/d],Min@@#>=d&]],{d,Rest[Divisors[n]]}]];
nds=Length/@Array[fam[#]&,2^nn];
Table[If[#=={},0,#[[1,1]]]&[Position[nds,i]],{i,nn}]

Extensions

More terms from Jinyuan Wang, Jul 07 2021

A045779 Number of factorizations of n into distinct factors for some n (image of A045778).

Original entry on oeis.org

1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 12, 14, 15, 16, 17, 18, 19, 21, 22, 25, 27, 31, 32, 33, 34, 38, 40, 42, 43, 44, 46, 52, 54, 55, 56, 57, 59, 61, 64, 67, 70, 74, 76, 80, 83, 88, 89, 91, 93, 100, 104, 110, 111, 112, 116, 117, 120, 122, 123, 132, 137, 140, 141, 142, 143, 148
Offset: 1

Views

Author

David W. Wilson

Keywords

Comments

We may use A045778(k*m) >= A045778(k) for any k, m >= 1 to disprove presence of some positive integer in this sequence. - David A. Corneth, Oct 24 2024

Examples

			From _David A. Corneth_, Oct 24 2024: (Start)
5 is a term as 24 has five factorizations into distinct divisors of 24 namely 24 = 2 * 12 = 3 * 8 = 4 * 6 = 2 * 3 * 4 which is five such factorizations.
11 is not a term. From terms in A025487 only the numbers 2, 4, 6, 8, 12, 16, 24, 30, 32, 36, 48, 60, 64, 72, 96, 128, 256, 512, 1024 have no more than 11 such factorizations. Any multiple of these numbers in A025487 that is not already listed has more than 11 such factorizations which proves 11 is not in this sequence. (End)

Links

Crossrefs

Factorizations are A001055, with image A045782, with complement A330976.
Strict factorizations are A045778 with image A045779 and complement A330975.
The least number with A045779(n) strict factorizations is A045780(n).
The least number with n strict factorizations is A330974(n).
Cf. A001222, A025487, A033833, A045783, A318286, A328966, A330972, A330973, A330997.

Extensions

Name edited by Gus Wiseman, Jan 11 2020

A330991 Positive integers whose number of factorizations into factors > 1 (A001055) is a prime number (A000040).

Original entry on oeis.org

4, 6, 8, 9, 10, 14, 15, 16, 21, 22, 24, 25, 26, 27, 30, 32, 33, 34, 35, 38, 39, 40, 42, 46, 49, 51, 54, 55, 56, 57, 58, 60, 62, 64, 65, 66, 69, 70, 74, 77, 78, 81, 82, 84, 85, 86, 87, 88, 90, 91, 93, 94, 95, 96, 102, 104, 105, 106, 110, 111, 114, 115, 118, 119
Offset: 1

Views

Author

Gus Wiseman, Jan 07 2020

Keywords

Comments

In short, A001055(a(n)) belongs to A000040.

Examples

			Factorizations of selected terms:
  (4)    (8)      (16)       (24)       (60)       (96)
  (2*2)  (2*4)    (2*8)      (3*8)      (2*30)     (2*48)
         (2*2*2)  (4*4)      (4*6)      (3*20)     (3*32)
                  (2*2*4)    (2*12)     (4*15)     (4*24)
                  (2*2*2*2)  (2*2*6)    (5*12)     (6*16)
                             (2*3*4)    (6*10)     (8*12)
                             (2*2*2*3)  (2*5*6)    (2*6*8)
                                        (3*4*5)    (3*4*8)
                                        (2*2*15)   (4*4*6)
                                        (2*3*10)   (2*2*24)
                                        (2*2*3*5)  (2*3*16)
                                                   (2*4*12)
                                                   (2*2*3*8)
                                                   (2*2*4*6)
                                                   (2*3*4*4)
                                                   (2*2*2*12)
                                                   (2*2*2*2*6)
                                                   (2*2*2*3*4)
                                                   (2*2*2*2*2*3)

Links

Crossrefs

Factorizations are A001055, with image A045782, with complement A330976.
Numbers whose number of strict integer partitions is prime are A035359.
Numbers whose number of integer partitions is prime are A046063.
Numbers whose number of set partitions is prime are A051130.
Numbers whose number of factorizations is a power of 2 are A330977.
The least number with prime(n) factorizations is A330992(n).
Cf. A001222, A033833, A045783, A181819, A181821, A326622, A330972, A330973, A330993.

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],PrimeQ[Length[facs[#]]]&]

A045780 Least value with A045779(n) factorizations into distinct factors.

Original entry on oeis.org

1, 6, 12, 64, 24, 256, 48, 512, 60, 96, 2048, 144, 210, 120, 216, 180, 384, 288, 16384, 240, 432, 420, 65536, 1536, 360, 480, 900, 864, 3072, 1152, 1296, 2310, 524288, 6144, 960, 720, 840, 2304, 1728, 1080, 1260, 2592, 2097152, 1800, 4608, 24576, 4194304, 1440, 3456
Offset: 1

Views

Author

David W. Wilson

Keywords

Examples

			From _Gus Wiseman_, Jan 11 2020: (Start)
The strict factorizations of a(n) for n = 1..9:
  ()  (6)    (12)   (64)     (24)     (256)     (48)     (512)     (60)
      (2*3)  (2*6)  (2*32)   (3*8)    (4*64)    (6*8)    (8*64)    (2*30)
             (3*4)  (4*16)   (4*6)    (8*32)    (2*24)   (16*32)   (3*20)
                    (2*4*8)  (2*12)   (2*128)   (3*16)   (2*256)   (4*15)
                             (2*3*4)  (2*4*32)  (4*12)   (4*128)   (5*12)
                                      (2*8*16)  (2*3*8)  (2*4*64)  (6*10)
                                                (2*4*6)  (2*8*32)  (2*5*6)
                                                         (4*8*16)  (3*4*5)
                                                                   (2*3*10)
(End)
30 is not in the sequence even though A045779(30) = 5. As 24 is the smallest k such that A045779(k) = 5 we have a(m) = 24 where m is such that A045779(m) = 5 which turns out to be m = 5 (not every positive integer is in A045779). So a(5) = 24. - _David A. Corneth_, Oct 24 2024

Links

Crossrefs

All terms belong to A025487.
The non-strict version is A045783.
The sorted version is A330997.
Factorizations are A001055 with image A045782 and complement A330976.
Strict factorizations are A045778 with image A045779 and complement A330975.
The least number with exactly n strict factorizations is A330974(n).
Cf. A033833, A318286, A330972, A330973, A330989.

Extensions

More terms from David A. Corneth, Oct 24 2024

A330977 Numbers whose number of factorizations into factors > 1 (A001055) is a power of 2.

Original entry on oeis.org

1, 2, 3, 4, 5, 6, 7, 9, 10, 11, 12, 13, 14, 15, 17, 18, 19, 20, 21, 22, 23, 25, 26, 28, 29, 31, 33, 34, 35, 37, 38, 39, 41, 43, 44, 45, 46, 47, 49, 50, 51, 52, 53, 55, 57, 58, 59, 61, 62, 63, 65, 67, 68, 69, 71, 72, 73, 74, 75, 76, 77, 79, 82, 83, 85, 86, 87
Offset: 1

Views

Author

Gus Wiseman, Jan 07 2020

Keywords

Comments

The complement starts: 8, 16, 24, 27, 30, 32, 36, 40.

Examples

			Factorizations of n = 1, 4, 12, 72:
  ()  (4)    (12)     (72)
      (2*2)  (2*6)    (8*9)
             (3*4)    (2*36)
             (2*2*3)  (3*24)
                      (4*18)
                      (6*12)
                      (2*4*9)
                      (2*6*6)
                      (3*3*8)
                      (3*4*6)
                      (2*2*18)
                      (2*3*12)
                      (2*2*2*9)
                      (2*2*3*6)
                      (2*3*3*4)
                      (2*2*2*3*3)

Links

Crossrefs

The same for strict integer partitions is A331022.
Factorizations are A001055, with image A045782.
The least number with exactly n factorizations is A330973(n).
The least number with exactly 2^n factorizations is A330989(n).
Numbers whose inverse prime shadow belongs to this sequence are A330990.
Numbers with a prime number of factorizations are A330991.
Cf. A002033, A033833, A045778, A045783, A317145, A326028, A330972, A330976.

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],IntegerQ[Log[2,Length[facs[#]]]]&]

A330975 Numbers that are not the number of factorizations of n into distinct factors > 1 for any n.

Original entry on oeis.org

11, 13, 20, 23, 24, 26, 28, 29, 30, 35, 36, 37, 39, 41, 45, 47, 48, 49, 50, 51, 53, 58, 60, 62, 63, 65, 66, 68, 69, 71, 72, 73, 75, 77, 78, 79, 81, 82, 84, 85, 86, 87, 90, 92, 94, 95, 96, 97, 98, 99, 101, 102, 103, 105, 106, 107, 108, 109, 113, 114, 115, 118
Offset: 1

Views

Author

Gus Wiseman, Jan 07 2020

Keywords

Comments

Warning: I have only confirmed the first three terms. The rest are derived from A045779. - Gus Wiseman, Jan 07 2020

Links

Crossrefs

Complement of A045779.
The non-strict version is A330976.
Factorizations are A001055, with image A045782, with complement A330976.
Strict factorizations are A045778, with image A045779.
The least positive integer with n strict factorizations is A330974(n).
Cf. A001222, A002033, A025487, A033833, A045780, A045783, A318286, A328966, A330972, A330973, A330997.

Programs

  • Mathematica
    nn=20;
fam[n_]:=fam[n]=If[n<=1,{{}},Join@@Table[Map[Prepend[#,d]&,Select[fam[n/d],Min@@#>=d&]],{d,Rest[Divisors[n]]}]];
nds=Length/@Array[Select[fam[#],UnsameQ@@#&]&,2^nn];
Complement[Range[nn],nds]
Showing 1-10 of 23 results. Next

Started in 1964 by Neil J. A. Sloane | Maintained by The OEIS Foundation Inc.

Content is available under The OEIS End-User License Agreement.