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

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
		

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.

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]}]

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

Keywords

Comments

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

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).

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

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)
		

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.

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

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.

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

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)
		

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).

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

A330989 Least positive integer with exactly 2^n factorizations into factors > 1, or 0 if no such integer exists.

Original entry on oeis.org

1, 4, 12, 0, 72, 0, 480
Offset: 0

Views

Author

Gus Wiseman, Jan 07 2020

Keywords

Examples

			The A001055(n) factorizations for 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)
		

Crossrefs

All nonzero terms belong to A025487 and also A033833.
Factorizations are A001055, with image A045782.
The least number with exactly n factorizations is A330973(n).
Numbers whose number of factorizations is a power of 2 are A330977.
The least number with exactly prime(n) factorizations is A330992(n).

A330993 Numbers k such that a multiset whose multiplicities are the prime indices of k has a prime number of multiset partitions.

Original entry on oeis.org

3, 4, 5, 7, 8, 10, 11, 12, 13, 21, 22, 25, 33, 38, 41, 45, 46, 49, 50, 55, 57, 58, 63
Offset: 1

Views

Author

Gus Wiseman, Jan 07 2020

Keywords

Comments

This multiset (row k of A305936) is generally not the same as the multiset of prime indices of k. For example, the prime indices of 12 are {1,1,2}, while a multiset whose multiplicities are {1,1,2} is {1,1,2,3}.
Also numbers whose inverse prime shadow has a prime number of factorizations. A prime index of k is a number m such that prime(m) divides k. The multiset of prime indices of k is row k of A112798. The inverse prime shadow of k is the least number whose prime exponents are the prime indices of k.

Examples

			The multiset partitions for n = 1..6:
  {11}    {12}    {111}      {1111}        {123}      {1112}
  {1}{1}  {1}{2}  {1}{11}    {1}{111}      {1}{23}    {1}{112}
                  {1}{1}{1}  {11}{11}      {2}{13}    {11}{12}
                             {1}{1}{11}    {3}{12}    {2}{111}
                             {1}{1}{1}{1}  {1}{2}{3}  {1}{1}{12}
                                                      {1}{2}{11}
                                                      {1}{1}{1}{2}
The factorizations for n = 1..8:
  4    6    8      16       30     24       32         60
  2*2  2*3  2*4    2*8      5*6    3*8      4*8        2*30
            2*2*2  4*4      2*15   4*6      2*16       3*20
                   2*2*4    3*10   2*12     2*2*8      4*15
                   2*2*2*2  2*3*5  2*2*6    2*4*4      5*12
                                   2*3*4    2*2*2*4    6*10
                                   2*2*2*3  2*2*2*2*2  2*5*6
                                                       3*4*5
                                                       2*2*15
                                                       2*3*10
                                                       2*2*3*5
		

Crossrefs

The same for powers of 2 (instead of primes) is A330990.
Factorizations are A001055, with image A045782, with complement A330976.
Numbers whose number of integer partitions is prime are A046063.
Numbers whose number of strict integer partitions is prime are A035359.
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).
Factorizations of a number's inverse prime shadow are A318284.
Numbers with a prime number of factorizations are A330991.

Programs

  • Mathematica
    facs[n_]:=If[n<=1,{{}},Join@@Table[Map[Prepend[#,d]&,Select[facs[n/d],Min@@#>=d&]],{d,Rest[Divisors[n]]}]];
    unsh[n_]:=Times@@MapIndexed[Prime[#2[[1]]]^#1&,Reverse[Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]]];
    Select[Range[30],PrimeQ[Length[facs[unsh[#]]]]&]

Formula

A001055(A181821(a(n))) belongs to A000040.

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[#]]]&]
Showing 1-8 of 8 results.