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

A331024 Denominator: factorizations divided by strict factorizations A001055(n)/A045778(n).

Original entry on oeis.org

1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 3, 1, 1, 1, 2, 1, 3, 1, 3, 1, 1, 1, 5, 1, 1, 2, 3, 1, 1, 1, 3, 1, 1, 1, 5, 1, 1, 1, 5, 1, 1, 1, 3, 3, 1, 1, 7, 1, 3, 1, 3, 1, 5, 1, 5, 1, 1, 1, 9, 1, 1, 3, 4, 1, 1, 1, 3, 1, 1, 1, 9, 1, 1, 3, 3, 1, 1, 1, 7, 2, 1, 1, 9, 1, 1, 1, 5, 1, 9, 1, 3, 1, 1, 1, 10, 1, 3, 3, 5, 1, 1, 1, 5, 1
Offset: 1

Views

Author

Gus Wiseman, Jan 08 2020

Keywords

Comments

A factorization of n is a finite, nondecreasing sequence of positive integers > 1 with product n. It is strict if the factors are all different. Factorizations and strict factorizations are counted by A001055 and A045778 respectively.

Links

Crossrefs

Positions of 1's include all elements of A001248 as well as A005117. The first position of a 1 that is not in A167207 is 128.
The numerators are A331023.
The rounded quotients are A331048.
The same for integer partitions is A330995.
Cf. A001055, A005117, A045778, A045779, A045780, A045782, A045783, A325755, A326028, A326622, A328966, A330972, A330977, A330991.

Programs

  • Mathematica
    facs[n_]:=If[n<=1,{{}},Join@@Table[Map[Prepend[#,d]&,Select[facs[n/d],Min@@#>=d&]],{d,Rest[Divisors[n]]}]];
Table[Length[facs[n]]/Length[Select[facs[n],UnsameQ@@#&]],{n,100}]//Denominator
  • PARI
    A001055(n, m=n) = if(1==n, 1, my(s=0); fordiv(n, d, if((d>1)&&(d<=m), s += A001055(n/d, d))); (s));
A045778(n, m=n) = ((n<=m) + sumdiv(n, d, if((d>1)&&(d<=m)&&(dA045778(n/d, d-1))));
A331024(n) = denominator(A001055(n)/A045778(n)); \\ Antti Karttunen, May 27 2021

Formula

a(2^n) = A330995(n).

Extensions

More terms from Antti Karttunen, May 27 2021

A331022 Numbers k such that the number of strict integer partitions of k is a power of 2.

Original entry on oeis.org

0, 1, 2, 3, 4, 6, 9, 16, 20, 29, 34, 45
Offset: 0

Views

Author

Gus Wiseman, Jan 10 2020

Keywords

Comments

An integer partition of n is a finite, nonincreasing sequence of positive integers (parts) summing to n. It is strict if the parts are all different. Integer partitions and strict integer partitions are counted by A000041 and A000009 respectively.
Conjecture: This sequence is finite.
Conjecture: The analogous sequence for non-strict partitions is: 0, 1, 2.
Next term > 5*10^4 if it exists. - Seiichi Manyama, Jan 12 2020

Examples

			The strict integer partitions of the initial terms:
  (1)  (2)  (3)    (4)    (6)      (9)
            (2,1)  (3,1)  (4,2)    (5,4)
                          (5,1)    (6,3)
                          (3,2,1)  (7,2)
                                   (8,1)
                                   (4,3,2)
                                   (5,3,1)
                                   (6,2,1)

Crossrefs

The version for primes instead of powers of 2 is A035359.
The version for factorizations instead of strict partitions is A330977.
Numbers whose number of partitions is prime are A046063.
Cf. A000009, A000079, A001055, A036498, A045778, A318286, A330989, A330990, A330994/A330995, A330996.

Programs

  • Mathematica
    Select[Range[0,1000],IntegerQ[Log[2,PartitionsQ[#]]]&]

A330994 Numerator of P(n)/Q(n) = A000041(n)/A000009(n).

Original entry on oeis.org

1, 1, 2, 3, 5, 7, 11, 3, 11, 15, 21, 14, 77, 101, 135, 176, 231, 297, 385, 245, 627, 198, 1002, 1255, 1575, 979, 812, 1505, 1859, 4565, 1401, 3421, 2783, 1449, 6155, 4961, 17977, 21637, 26015, 31185, 1778, 2123, 26587, 63261, 75175, 44567, 17593, 8911, 49091
Offset: 0

Views

Author

Gus Wiseman, Jan 08 2020

Keywords

Comments

An integer partition of n is a finite, nonincreasing sequence of positive integers (parts) summing to n. It is strict if the parts are all different. Integer partitions and strict integer partitions are counted by A000041 and A000009 respectively.

Crossrefs

The denominators are A330995.
The rounded quotients are A330996.
The same for factorizations is A331023.
Cf. A000009, A000041, A003238, A005117, A035359, A046063, A331022.

Programs

  • Mathematica
    Table[PartitionsP[n]/PartitionsQ[n],{n,0,100}]//Numerator

Formula

A330994/A330995 = A000041/A000009.

A331048 Nearest integer to A001055(n)/A045778(n), where A001055 is factorizations and A045778 is strict factorizations.

Original entry on oeis.org

1, 1, 1, 2, 1, 1, 1, 2, 2, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 2, 1, 1, 1, 1, 2, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 3, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 2, 2, 1, 1, 1, 1, 1, 1
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. It is strict if the factors are all different.

Crossrefs

The exact quotient is A331023/A331024.
The same for integer partitions is A330996 ~ A330994/A330995.
Cf. A001055, A001222, A002033, A005117, A045778, A045779, A045780, A045782, A045783, A330972, A330977, A330991.

Programs

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

A330996 Nearest integer to P(n)/Q(n) = A000041(n)/A000009(n).

Original entry on oeis.org

1, 1, 2, 2, 2, 2, 3, 3, 4, 4, 4, 5, 5, 6, 6, 7, 7, 8, 8, 9, 10, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 23, 24, 25, 27, 28, 30, 32, 34, 35, 37, 39, 41, 44, 46, 48, 51, 53, 56, 59, 61, 64, 68, 71, 74, 78, 81, 85, 89, 93, 97, 101, 106, 111, 115, 120, 126
Offset: 0

Views

Author

Gus Wiseman, Jan 08 2020

Keywords

Comments

Conjecture: This sequence is nondecreasing. More generally, the rational sequence A000041(n)/A000009(n) is nondecreasing for n > 5.

Crossrefs

The numerators are A330994.
The denominators are A330995.
The same for factorizations is A331048.
Cf. A000009, A000041, A001055, A003238, A035359, A045778, A046063, A331022.

Programs

  • Mathematica
    Table[Round[PartitionsP[n]/PartitionsQ[n]],{n,0,100}]
Showing 1-5 of 5 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.