|
%I #11 Dec 19 2016 04:09:02
%S 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,
%T 35,51,25,67,27,58,42,48,42,85,32,54,50,84,36,90,38,78,72,66,42,118,
%U 51,87,66,92,48,114,66,114,74,84,54,162,56,90,98,121,77,137,61,119,89,137
%N Sum of divisors of n minus binary order of n.
%H G. C. Greubel, <a href="/A163298/b163298.txt">Table of n, a(n) for n = 1..1000</a>
%F a(n) = A000203(n) - A029837(n).
%e a(1) = 1 - 0 = 1;
%e a(2) = 3 - 1 = 2;
%e a(3) = 4 - 2 = 3.
%t Table[DivisorSigma[1, n] - Ceiling[Log[2, n]], {n, 100}] (* _G. C. Greubel_, Dec 18 2016 *)
%Y Cf. A000203 (sum of divisors), A029837 (binary order).
%K nonn,less
%O 1,2
%A _Juri-Stepan Gerasimov_, Jul 25 2009
%E Entries checked by _R. J. Mathar_, May 21 2010
|
