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

A379922 Numbers m that divide the alternating sum Sum_{k=1..m} (-1)^(k+1) * sigma_2(k).

Original entry on oeis.org

1, 2, 3, 42, 329, 633, 1039, 5689, 26621, 39245, 1101875, 1216075, 40088584, 67244920, 104332211, 549673265, 777631064, 19879301756
Offset: 1

Views

Author

Amiram Eldar, Jan 06 2025

Keywords

Comments

Numbers m such that m | A379921(m).
The corresponding quotients, A379921(m)/m, are -1, 2, -2, 120, 5228, ... (see the link for more values).
a(19) > 5*10^10, if it exists.

Crossrefs

Cf. A001157 (sigma_2), A379921.

Programs

  • Mathematica
    With[{m = 40000}, Position[Accumulate[Table[(-1)^n * DivisorSigma[2, n], {n, 1, m}]]/Range[m], _?IntegerQ] // Flatten]
  • PARI
    list(lim) = my(s = 0); for(k = 1, lim, s += (-1)^k * sigma(k, 2); if(!(s % k), print1(k, ", ")));

A379923 Numbers m that divide the alternating sum Sum_{k=1..m} (-1)^k * A000005(k).

Original entry on oeis.org

1, 5, 18, 22, 25, 29, 197, 1350, 1360, 1362, 1368, 1381, 1391, 1395, 10200, 75486, 75490, 557768, 557843, 557853, 557898, 4121846, 4122064, 4122112, 4122222, 30457732, 30457773, 30457835, 30458040, 30458133, 30458138, 30458140, 30458335, 225056911, 225056919, 225056925, 225056989
Offset: 1

Views

Author

Amiram Eldar, Jan 06 2025

Keywords

Comments

Numbers m such that m | A307704(m).
The corresponding quotients, A307704(m)/m, are -1, 0, 1, 1, 1, 1, 2, 3, 3, 3, ... (see the link for more values).
a(38) > 2*10^10, if it exists.

Crossrefs

Programs

  • Mathematica
    With[{m = 10000}, Position[Accumulate[Table[(-1)^n * DivisorSigma[0, n], {n, 1, m}]]/Range[m], _?IntegerQ] // Flatten]
  • PARI
    list(lim) = my(s = 0); for(k = 1, lim, s += (-1)^k * numdiv(k); if(!(s % k), print1(k, ", ")));
Showing 1-2 of 2 results.