A336696 Sum of odd divisors of 1+sigma(n).

1, 1, 6, 1, 8, 14, 13, 1, 8, 20, 14, 30, 24, 31, 31, 1, 20, 6, 32, 44, 48, 38, 31, 62, 1, 44, 42, 80, 32, 74, 48, 1, 57, 72, 57, 24, 56, 62, 80, 112, 44, 98, 78, 108, 80, 74, 57, 156, 30, 48, 74, 156, 72, 133, 74, 133, 121, 112, 62, 183, 104, 98, 192, 1, 108, 180, 96, 128, 98, 180, 74, 57, 124, 144, 156, 192, 98

Offset

1,3

Links

Antti Karttunen, Table of n, a(n) for n = 1..16384

Antti Karttunen, Data supplement: n, a(n) computed for n = 1..65537

Index entries for sequences related to sigma(n)

Formula

a(n) = A000593(1+A000203(n)) = A000593(A088580(n)) = A000593(A332459(n)).

Mathematica

Table[Total[Select[Divisors[1+DivisorSigma[1, n]], OddQ]], {n, 80}] (* Harvey P. Dale, Jan 01 2022 *)

Prog

(PARI)
A000593(n) = sigma(n>>valuation(n, 2));
A336696(n) = A000593(1+sigma(n));

Crossrefs

Cf. A000203, A000593, A088580, A193337, A324294, A332459, A336691, A336692, A336693, A336694, A336696.

Sequence in context: A011490 A011395 A140248 * A382775 A127169 A202351

Adjacent sequences: A336693 A336694 A336695 * A336697 A336698 A336699

Keyword

nonn

Author

Antti Karttunen, Jul 31 2020

Status

approved