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.

A323342 Numbers k whose bi-unitary divisors have an even sum which is larger than 2k, but they cannot be partitioned into two disjoint parts whose sums are equal.

Original entry on oeis.org

704, 1458, 2394, 7544, 10184, 46400, 60416, 106434, 115182, 118098, 121014, 125000, 129762, 141426, 147258, 150174, 156006, 158922, 164754, 176418, 185166, 190998, 199746, 202662, 217242, 220158, 228906, 237654, 243486, 246402, 252234, 260982, 263898, 278478
Offset: 1

Views

Author

Amiram Eldar, Jan 11 2019

Keywords

Comments

The bi-unitary version of A171641.

Links

Crossrefs

Cf. A171641, A188999, A292982, A323341, A323343, A323344.

Programs

  • Mathematica
    f[n_] := Select[Divisors[n], Function[d, CoprimeQ[d, n/d]]]; bdiv[n_] := Select[Divisors[n], Last@Intersection[f@#, f[n/#]] == 1 &]; fun[p_, e_] := If[OddQ[e], (p^(e+1)-1)/(p-1), (p^(e+1)-1)/(p-1)-p^(e/2)]; bsigma[n_] := If[n==1, 1, Times @@ (fun @@@ FactorInteger[n])]; seq={}; Do[s=bsigma[n]; If[OddQ[s] || s<=2n, Continue[]]; div = bdiv[n]; If[Coefficient[Times @@ (1 + x^div) // Expand, x, s/2] == 0, AppendTo[seq, n]], {n, 1, 10000}]; seq

A323344 Numbers k whose infinitary divisors have an even sum which is larger than 2k, but they cannot be partitioned into two disjoint parts whose sums are equal.

Original entry on oeis.org

2394, 7544, 10184, 1452330, 2154584, 5021912, 5747994, 5771934, 5786298, 5800662, 5834178, 5843754, 5858118, 5886846, 5905998, 5920362, 5929938, 5992182, 6035274, 6059214, 6078366, 6087942, 6102306, 6107094, 6121458, 6174126, 6202854, 6207642, 6245946, 6265098
Offset: 1

Views

Author

Amiram Eldar, Jan 11 2019

Keywords

Comments

The infinitary version of A171641.

Links

Crossrefs

Cf. A049417, A077609, A129656, A171641, A323341, A323342, A323343.

Programs

  • Mathematica
    infdivs[x_] := If[x == 1, 1, Sort@ Flatten@ Outer[Times, Sequence @@ (FactorInteger[x] /. {p_, m_Integer} :> p^Select[Range[0, m], BitOr[m, #] == m &])]] ; fun[p_, e_] := Module[{b = IntegerDigits[e, 2]}, m = Length[b]; Product[If[b[[j]] > 0, 1 + p^(2^(m - j)), 1], {j, 1, m}]]; isigma[n_] := If[n == 1, 1, Times @@ (fun @@@ FactorInteger[n])]; seq={}; Do[s=isigma[n]; If[OddQ[s] || s<=2n, Continue[]]; div = infdivs[n]; If[Coefficient[Times @@ (1 + x^div) // Expand, x, s/2] == 0, AppendTo[seq, n]], {n, 1, 100000}]; seq (* after Michael De Vlieger at A077609 *)

A323341 Numbers k whose unitary divisors have an even sum which is larger than 2k, but they cannot be partitioned into two disjoint parts whose sums are equal.

Original entry on oeis.org

2394, 1452330, 5771934, 5786298, 5800662, 5834178, 5843754, 5858118, 5886846, 5905998, 5920362, 5929938, 5992182, 6035274, 6059214, 6078366, 6087942, 6102306, 6107094, 6121458, 6174126, 6202854, 6207642, 6245946, 6265098, 6274674, 6303402, 6336918, 6360858
Offset: 1

Views

Author

Amiram Eldar, Jan 11 2019

Keywords

Links

Crossrefs

The unitary version of A171641.
Cf. A034448, A034683, A290466, A323342, A323343, A323344.

Programs

  • Mathematica
    usigma[n_] := If[n == 1, 1, Times @@ (1 + Power @@@ FactorInteger[n])]; seq={}; Do[s=usigma[n]; If[OddQ[s] || s<=2n, Continue[]]; udiv = Select[Divisors[n], GCD[ #, n/# ] == 1 &]; If[Coefficient[Times @@ (1 + x^udiv) // Expand, x, s/2] == 0, AppendTo[seq, n]], {n, 1, 1500000}]; seq

A335218 Exponential Zumkeller numbers: numbers whose exponential divisors can be partitioned into two disjoint subsets of equal sum.

Original entry on oeis.org

36, 180, 252, 396, 468, 612, 684, 828, 900, 1044, 1116, 1260, 1332, 1476, 1548, 1692, 1764, 1800, 1908, 1980, 2124, 2196, 2340, 2412, 2556, 2628, 2700, 2772, 2844, 2988, 3060, 3204, 3276, 3420, 3492, 3600, 3636, 3708, 3852, 3924, 4068, 4140, 4284, 4356, 4500, 4572, 4716, 4788, 4900
Offset: 1

Views

Author

Amiram Eldar, May 27 2020

Keywords

Comments

First differs from A318100 at n = 49: 4900 is a term that is not an exponential pseudoperfect number.

Examples

			36 is a term since its exponential divisors, {6, 12, 18, 36}, can be partitioned into 2 disjoint sets whose sum is equal: 6 + 12 + 18 = 36.

Links

Crossrefs

The exponential version of A083207.
Subsequence of A129575.
A054979 is a subsequence.
Cf. A318100, A322791, A323343.

Programs

  • Mathematica
    dQ[n_, m_] := (n > 0 && m > 0 && Divisible[n, m]); expDivQ[n_, d_] := Module[{ft = FactorInteger[n]}, And @@ MapThread[dQ, {ft[[;; , 2]], IntegerExponent[d, ft[[;; , 1]]]}]]; eDivs[n_] := Module[{d = Rest[Divisors[n]]}, Select[d, expDivQ[n, #] &]]; ezQ[n_] := Module[{d = eDivs[n], sum, x}, sum = Plus @@ d; If[sum < 2*n || OddQ[sum], False, CoefficientList[Product[1 + x^i, {i, d}], x][[1 + sum/2]] > 0]]; Select[Range[10^4], ezQ]

A339983 Coreful abundant numbers (A308053) with an even sum of coreful divisors (A057723) that are not coreful Zumkeller numbers (A339979).

Original entry on oeis.org

108, 216, 432, 540, 756, 864, 972, 1000, 1080, 1188, 1404, 1512, 1728, 1836, 1944, 2000, 2052, 2160, 2376, 2484, 2744, 2808, 3000, 3024, 3132, 3348, 3456, 3672, 3780, 3888, 3996, 4000, 4104, 4320, 4428, 4644, 4752, 4860, 4968, 5076, 5488, 5616, 5724, 5940, 6000
Offset: 1

Views

Author

Amiram Eldar, Dec 25 2020

Keywords

Examples

			108 is a term since its set of coreful divisors, {6, 12, 18, 36, 54, 108}, has an even sum, 234 > 2*108, and it cannot be partitioned into two disjoint sets of equal sum.

Crossrefs

Subsequence of A308053.
Cf. A057723, A339979, A339982.
Similar sequences: A171641, A323341, A323342, A323343, A323344.

Programs

  • Mathematica
    q[n_] := Module[{r = Times @@ FactorInteger[n][[;; , 1]], d, sum, x}, d = r*Divisors[n/r]; (sum = Plus @@ d) >= 2*n && EvenQ[sum] && CoefficientList[Product[1 + x^i, {i, d}], x][[1 + sum/2]] == 0]; Select[Range[10^4], q]
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.