A233394 Sum of c-divisors of n.

1, 2, 4, 4, 8, 9, 11, 8, 14, 12, 22, 17, 27, 26, 26, 16, 26, 24, 36, 26, 39, 36, 52, 33, 51, 45, 68, 48, 73, 63, 57, 32, 50, 44, 64, 40, 67, 60, 82, 50, 77, 54, 96, 68, 94, 88, 114, 65, 99, 87, 124, 85, 124, 103, 153, 92, 139, 120, 170, 115, 171, 140, 120, 64

Offset: 1

Author

Vladimir Shevelev, Dec 08 2013

Keywords

• nonn
• base

Examples

			Let n=23. By the definition of c-divisor (see comment in A124771), 23 has the following c-divisors: 0, 1, 2, 3, 5, 7, 11, 23. So a(23)=52.
		

Links

• Peter J. C. Moses, Table of n, a(n) for n = 1..5000
• Index entries for sequences related to binary expansion of n

Crossrefs

Cf. A114994, A124771.

Programs

Mathematica

bitPatt[n_]:=bitPatt[n]=Split[IntegerDigits[n,2],#1>#2||#2==0&];cDivisors[0]:={0};cDivisors[n_]:=Insert[Insert[Map[#[[1]]&,Select[Table[{z,Cases[{bitPatt[n]},Apply[{_,##,_}&,bitPatt[z]]]},{z,n/2}],#[[2]]=!={}&]],0,1],n,-1];Map[Apply[Plus,cDivisors[#]]&,Range[50]] (* Peter J. C. Moses, Dec 08 2013 *)

Extensions

More terms from Peter J. C. Moses, Dec 08 2013