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

A320655 Number of factorizations of n into semiprimes. Number of multiset partitions of the multiset of prime factors of n, into pairs.

Original entry on oeis.org

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

Views

Author

Gus Wiseman, Oct 18 2018

Keywords

Comments

The characteristic function of nonzero terms is A065043. - R. J. Mathar, Jan 18 2021

Examples

			The a(900) = 5 factorizations into semiprimes:
  900 = (4*9*25)
  900 = (4*15*15)
  900 = (6*6*25)
  900 = (6*10*15)
  900 = (9*10*10)
The a(900) = 5 multiset partitions into pairs:
  {{1,1},{2,2},{3,3}}
  {{1,1},{2,3},{2,3}}
  {{1,2},{1,2},{3,3}}
  {{1,2},{1,3},{2,3}}
  {{2,2},{1,3},{1,3}}
		

Crossrefs

Programs

  • Mathematica
    semfacs[n_]:=If[n<=1,{{}},Join@@Table[Map[Prepend[#,d]&,Select[semfacs[n/d],Min@@#>=d&]],{d,Select[Rest[Divisors[n]],PrimeOmega[#]==2&]}]];
    Table[Length[semfacs[n]],{n,100}]
  • PARI
    A320655(n, m=n) = if(1==n, 1, my(s=0); fordiv(n, d, if((2==bigomega(d)&&(d<=m)), s += A320655(n/d, d))); (s)); \\ Antti Karttunen, Dec 06 2020

Extensions

Data section extended up to 105 terms by Antti Karttunen, Dec 06 2020

A320656 Number of factorizations of n into squarefree semiprimes. Number of multiset partitions of the multiset of prime factors of n, into strict pairs.

Original entry on oeis.org

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

Views

Author

Gus Wiseman, Oct 18 2018

Keywords

Examples

			The a(4620) = 6 factorizations into squarefree semiprimes:
  4620 = (6*10*77)
  4620 = (6*14*55)
  4620 = (6*22*35)
  4620 = (10*14*33)
  4620 = (10*21*22)
  4620 = (14*15*22)
The a(4620) = 6 multiset partitions into strict pairs:
  {{1,2},{1,3},{4,5}}
  {{1,2},{1,4},{3,5}}
  {{1,2},{1,5},{3,4}}
  {{1,3},{1,4},{2,5}}
  {{1,3},{2,4},{1,5}}
  {{1,4},{2,3},{1,5}}
The a(69300) = 10 factorizations into squarefree semiprimes:
  69300 = (6*6*35*55)
  69300 = (6*10*15*77)
  69300 = (6*10*21*55)
  69300 = (6*10*33*35)
  69300 = (6*14*15*55)
  69300 = (6*15*22*35)
  69300 = (10*10*21*33)
  69300 = (10*14*15*33)
  69300 = (10*15*21*22)
  69300 = (14*15*15*22)
The a(69300) = 10 multiset partitions into strict pairs:
  {{1,2},{1,2},{3,4},{3,5}}
  {{1,2},{1,3},{2,3},{4,5}}
  {{1,2},{1,3},{2,4},{3,5}}
  {{1,2},{1,3},{2,5},{3,4}}
  {{1,2},{1,4},{2,3},{3,5}}
  {{1,2},{2,3},{1,5},{3,4}}
  {{1,3},{1,3},{2,4},{2,5}}
  {{1,3},{1,4},{2,3},{2,5}}
  {{1,3},{2,3},{2,4},{1,5}}
  {{1,4},{2,3},{2,3},{1,5}}.
The a(210) = 3 factorizations into squarefree semiprimes: 210 = (6*35) = (10*21) = (14*15). - _Antti Karttunen_, Nov 02 2022
		

Crossrefs

Programs

  • Mathematica
    bepfacs[n_]:=If[n<=1,{{}},Join@@Table[Map[Prepend[#,d]&,Select[bepfacs[n/d],Min@@#>=d&]],{d,Select[Rest[Divisors[n]],SquareFreeQ[#]&&PrimeOmega[#]==2&]}]];
    Table[Length[bepfacs[n]],{n,100}]
  • PARI
    A320656(n, m=n) = if(1==n, 1, my(s=0); fordiv(n, d, if((d>1)&&(d<=m)&&issquarefree(d)&&2==bigomega(d), s += A320656(n/d, d))); (s)); \\ Antti Karttunen, Nov 02 2022

Formula

a(A002110(n)) = A123023(n). - Antti Karttunen, Nov 02 2022

Extensions

Data section extended up to a(120) and the secondary offset added by Antti Karttunen, Nov 02 2022

A320892 Numbers with an even number of prime factors (counted with multiplicity) that cannot be factored into distinct semiprimes.

Original entry on oeis.org

16, 64, 81, 96, 144, 160, 224, 256, 324, 352, 384, 400, 416, 486, 544, 576, 608, 625, 640, 729, 736, 784, 864, 896, 928, 960, 992, 1024, 1184, 1215, 1296, 1312, 1344, 1376, 1408, 1440, 1504, 1536, 1600, 1664, 1696, 1701, 1888, 1936, 1944, 1952, 2016, 2025
Offset: 1

Views

Author

Gus Wiseman, Oct 23 2018

Keywords

Comments

A semiprime (A001358) is a product of any two not necessarily distinct primes.
If A025487(k) is in the sequence then so is every number with the same prime signature. - David A. Corneth, Oct 23 2018
Numbers for which A001222(n) is even and A322353(n) is zero. - Antti Karttunen, Dec 06 2018

Examples

			A complete list of all factorizations of 1296 into semiprimes is:
  1296 = (4*4*9*9)
  1296 = (4*6*6*9)
  1296 = (6*6*6*6)
None of these is strict, so 1296 belongs to the sequence.
		

Crossrefs

Programs

  • Mathematica
    strsemfacs[n_]:=If[n<=1,{{}},Join@@Table[Map[Prepend[#,d]&,Select[strsemfacs[n/d],Min@@#>d&]],{d,Select[Rest[Divisors[n]],PrimeOmega[#]==2&]}]];
    Select[Range[1000],And[EvenQ[PrimeOmega[#]],strsemfacs[#]=={}]&]
  • PARI
    A322353(n, m=n, facs=List([])) = if(1==n, my(u=apply(bigomega,Vec(facs))); (0==length(u)||(2==vecmin(u)&&2==vecmax(u))), my(s=0, newfacs); fordiv(n, d, if((d>1)&&(d<=m), newfacs = List(facs); listput(newfacs,d); s += A322353(n/d, d-1, newfacs))); (s));
    isA300892(n) = if(bigomega(n)%2,0,(0==A322353(n))); \\ Antti Karttunen, Dec 06 2018

A319057 Minimum sum of a strict factorization of n into factors > 1.

Original entry on oeis.org

0, 2, 3, 4, 5, 5, 7, 6, 9, 7, 11, 7, 13, 9, 8, 10, 17, 9, 19, 9, 10, 13, 23, 9, 25, 15, 12, 11, 29, 10, 31, 12, 14, 19, 12, 11, 37, 21, 16, 11, 41, 12, 43, 15, 14, 25, 47, 12, 49, 15, 20, 17, 53, 14, 16, 13, 22, 31, 59, 12, 61, 33, 16, 14, 18, 16, 67, 21, 26
Offset: 1

Views

Author

Gus Wiseman, Sep 09 2018

Keywords

Comments

a(n) >= A001414(n), with equality iff n is squarefree or four times a squarefree number (i.e., A000188(n) <= 2). - Charlie Neder, Sep 10 2018

Examples

			The strict factorizations of 48 are (48), (2*24), (3*16), (4*12), (6*8), (2*3*8), (2*4*6), with sums 48, 26, 19, 16, 14, 13, 12 respectively, so a(48) = 12.
		

Crossrefs

Programs

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

A320891 Numbers with an even number of prime factors (counted with multiplicity) that cannot be factored into squarefree semiprimes.

Original entry on oeis.org

4, 9, 16, 24, 25, 40, 49, 54, 56, 64, 81, 88, 96, 104, 121, 135, 136, 144, 152, 160, 169, 184, 189, 224, 232, 240, 248, 250, 256, 289, 296, 297, 324, 328, 336, 344, 351, 352, 361, 375, 376, 384, 400, 416, 424, 459, 472, 486, 488, 513, 528, 529, 536, 544, 560
Offset: 1

Views

Author

Gus Wiseman, Oct 23 2018

Keywords

Comments

A squarefree semiprime (A006881) is a product of any two distinct primes.
Also numbers with an even number x of prime factors, whose greatest prime multiplicity exceeds x/2.

Examples

			A complete list of all factorizations of 24 is:
  (2*2*2*3),
  (2*2*6), (2*3*4),
  (2*12), (3*8), (4*6),
  (24).
All of these contain at least one number that is not a squarefree semiprime, so 24 belongs to the sequence.
		

Crossrefs

Programs

  • Mathematica
    semfacs[n_]:=If[n<=1,{{}},Join@@Table[Map[Prepend[#,d]&,Select[semfacs[n/d],Min@@#>=d&]],{d,Select[Rest[Divisors[n]],And[SquareFreeQ[#],PrimeOmega[#]==2]&]}]];
    Select[Range[100],And[EvenQ[PrimeOmega[#]],semfacs[#]=={}]&]

A320894 Numbers with an even number of prime factors (counted with multiplicity) that cannot be factored into distinct squarefree semiprimes.

Original entry on oeis.org

4, 9, 16, 24, 25, 36, 40, 49, 54, 56, 64, 81, 88, 96, 100, 104, 121, 135, 136, 144, 152, 160, 169, 184, 189, 196, 216, 224, 225, 232, 240, 248, 250, 256, 289, 296, 297, 324, 328, 336, 344, 351, 352, 360, 361, 375, 376, 384, 400, 416, 424, 441, 459, 472, 484
Offset: 1

Views

Author

Gus Wiseman, Oct 23 2018

Keywords

Comments

A squarefree semiprime (A006881) is a product of any two distinct primes.

Examples

			A complete list of all strict factorizations of 24 is: (2*3*4), (2*12), (3*8), (4*6), (24). All of these contain at least one number that is not a squarefree semiprime, so 24 belongs to the sequence.
		

Crossrefs

Programs

  • Mathematica
    strsqfsemfacs[n_]:=If[n<=1,{{}},Join@@Table[Map[Prepend[#,d]&,Select[strsqfsemfacs[n/d],Min@@#>d&]],{d,Select[Rest[Divisors[n]],And[SquareFreeQ[#],PrimeOmega[#]==2]&]}]];
    Select[Range[100],And[EvenQ[PrimeOmega[#]],strsqfsemfacs[#]=={}]&]

A320893 Numbers with an even number of prime factors (counted with multiplicity) that can be factored into squarefree semiprimes (A320911) but cannot be factored into distinct semiprimes (A320892).

Original entry on oeis.org

1296, 7776, 10000, 12960, 18144, 19440, 21600, 27216, 28512, 33696, 36000, 38416, 42336, 42768, 44064, 46656, 48600, 49248, 50544, 50625, 59616, 60000, 66096, 73872, 75168, 77760, 80352, 89424, 95256, 95904, 98784, 100000
Offset: 1

Views

Author

Gus Wiseman, Oct 23 2018

Keywords

Comments

A semiprime (A001358) is a product of any two not necessarily distinct primes.

Crossrefs

Programs

  • Mathematica
    sqfsemfacs[n_]:=If[n<=1,{{}},Join@@Table[Map[Prepend[#,d]&,Select[sqfsemfacs[n/d],Min@@#>=d&]],{d,Select[Rest[Divisors[n]],And[SquareFreeQ[#],PrimeOmega[#]==2]&]}]];
    strsemfacs[n_]:=If[n<=1,{{}},Join@@Table[Map[Prepend[#,d]&,Select[strsemfacs[n/d],Min@@#>d&]],{d,Select[Rest[Divisors[n]],PrimeOmega[#]==2&]}]];
    Select[Range[10000],And[EvenQ[PrimeOmega[#]],strsemfacs[#]=={},sqfsemfacs[#]!={}]&]

A318954 Minimum shifted Heinz number of a strict factorization of n into factors > 1.

Original entry on oeis.org

1, 2, 3, 5, 7, 6, 13, 10, 19, 14, 29, 15, 37, 26, 21, 34, 53, 33, 61, 35, 39, 58, 79, 30, 89, 74, 57, 65, 107, 42, 113, 85, 87, 106, 91, 66, 151, 122, 111, 70, 173, 78, 181, 145, 129, 158, 199, 102, 223, 161, 159, 185, 239, 114, 203, 130, 183, 214, 271, 105
Offset: 1

Views

Author

Gus Wiseman, Sep 05 2018

Keywords

Comments

The shifted Heinz number of a factorization (y_1, ..., y_k) is prime(y_1 - 1) * ... * prime(y_k - 1).

Examples

			The strict factorizations of 60 are (2*3*10), (2*5*6), (2*30), (3*4*5), (3*20), (4*15), (5*12), (6*10), (60), with shifted Heinz numbers 138, 154, 218, 105, 201, 215, 217, 253, 277 respectively, so a(60) = 105.
		

Crossrefs

Programs

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

A322075 Number of factorizations of n into nonprime squarefree numbers > 1.

Original entry on oeis.org

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

Views

Author

Gus Wiseman, Nov 25 2018

Keywords

Comments

First term greater than 1 is a(210) = 4.

Examples

			The a(420) = 3 factorizations: (6*70), (10*42), (14*30).
		

Crossrefs

Programs

  • Mathematica
    sqnopfacs[n_]:=If[n<=1,{{}},Join@@Table[Map[Prepend[#,d]&,Select[sqnopfacs[n/d],Min@@#>=d&]],{d,Select[Rest[Divisors[n]],!PrimeQ[#]&&SquareFreeQ[#]&]}]]
    Table[Length[sqnopfacs[n]],{n,100}]
Showing 1-9 of 9 results.