A163298 Sum of divisors of n minus binary order of n.

1, 2, 2, 5, 3, 9, 5, 12, 9, 14, 8, 24, 10, 20, 20, 27, 13, 34, 15, 37, 27, 31, 19, 55, 26, 37, 35, 51, 25, 67, 27, 58, 42, 48, 42, 85, 32, 54, 50, 84, 36, 90, 38, 78, 72, 66, 42, 118, 51, 87, 66, 92, 48, 114, 66, 114, 74, 84, 54, 162, 56, 90, 98, 121, 77, 137, 61, 119, 89, 137

Offset

1,2

Links

G. C. Greubel, Table of n, a(n) for n = 1..1000

Formula

a(n) = A000203(n) - A029837(n).

Example

a(1) = 1 - 0 = 1;
a(2) = 3 - 1 = 2;
a(3) = 4 - 2 = 3.

Mathematica

Table[DivisorSigma[1, n] - Ceiling[Log[2, n]], {n, 100}] (* G. C. Greubel, Dec 18 2016 *)

Crossrefs

Cf. A000203 (sum of divisors), A029837 (binary order).

Sequence in context: A075545 A006307 A152991 * A133440 A331520 A160793

Adjacent sequences: A163295 A163296 A163297 * A163299 A163300 A163301

Keyword

nonn,less

Author

Juri-Stepan Gerasimov, Jul 25 2009

Extensions

Entries checked by R. J. Mathar, May 21 2010

Status

approved