A332975 Solutions k of the equation isigma(k) = isigma(k-1) + isigma(k-2) where isigma(k) is the sum of the infinitary divisors of k (A049417).

3, 24, 360, 5016, 28440, 42066, 50568, 60456, 187176, 998670, 1454706, 12055512, 14365608, 25726728, 27896424, 51670374, 91702962, 141084774, 236280786, 249854952, 386668344, 439362504, 792554574, 1115866152, 1931976696, 2467823442, 2496238590, 2655297558, 2715505440

Offset

1,1

Links

Amiram Eldar, Table of n, a(n) for n = 1..38

Example

24 is a term since isigma(24) = 60 and isigma(22) + isigma(23) = 36 + 24 = 60.

Mathematica

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[1] = 1; isigma[n_] := Times @@ fun @@@ FactorInteger[n]; Select[Range[3, 10^5], isigma[#] == isigma[# - 1] + isigma[# - 2] &]

Crossrefs

The infinitary version of A065900.

Cf. A049417, A065557, A075565, A076136, A076251, A145469, A291126, A291176, A292033, A294995, A332976.

Sequence in context: A153389 A366000 A375800 * A010791 A145169 A193210

Adjacent sequences: A332972 A332973 A332974 * A332976 A332977 A332978

Keyword

nonn

Author

Amiram Eldar, Mar 04 2020

Status

approved