A379922 -id:A379922 - cp's OEIS frontend

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

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

Amiram Eldar, Jan 06 2025

nonn

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.

Amiram Eldar, Table of n, a(n), A307704(a(n))/a(n) for n = 1..37.

Cf. A000005, A307704.

Similar sequences: A050226, A048290, A056550, A064605, A067929, A067931, A379922, A379924.

With[{m = 10000}, Position[Accumulate[Table[(-1)^n * DivisorSigma[0, n], {n, 1, m}]]/Range[m], _?IntegerQ] // Flatten]

list(lim) = my(s = 0); for(k = 1, lim, s += (-1)^k * numdiv(k); if(!(s % k), print1(k, ", ")));

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

Original entry on oeis.org

1, 2, 9, 54, 101, 178, 189, 2071, 3070, 9171, 11450, 12794, 21405, 27553, 35285, 251974, 2069863, 2395894, 155931488, 387586437, 758519827, 1202435693, 9859113494, 42703260442

Offset: 1

Amiram Eldar, Jan 06 2025

Numbers m such that m | A370898(m).
The corresponding quotients, A370898(m)/m, are -1, 1, 0, 6, 9, ... (see the link for more values).
a(25) > 5*10^10, if it exists.

Amiram Eldar, Table of n, a(n), A370898(a(n))/a(n) for n = 1..24.

Cf. A034448 (usigma), A370898.

Similar sequences: A050226, A048290, A056550, A064605, A067929, A067931, A379922, A379923.

usigma[n_] := Times @@ (1 + Power @@@ FactorInteger[n]); usigma[1] = 1; With[{m = 260000}, Position[Accumulate[Table[(-1)^n * usigma[n], {n, 1, m}]]/Range[m], _?IntegerQ] // Flatten]

usigma(n) = {my(f = factor(n)); prod(i = 1, #f~, 1 + f[i, 1]^f[i, 2]); }
list(lim) = my(s = 0); for(k = 1, lim, s += (-1)^k * usigma(k); if(!(s % k), print1(k, ", ")));

cp's OEIS Frontend

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

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica

PARI