A114001 Rows of A114000 expressed as decimals (a sequence related to the number of divisors of 2n-1).

1, 3, 5, 9, 25, 33, 65, 225, 257, 513, 1665, 2049, 5121, 12801, 16385, 32769, 100353, 180225, 262145, 794625, 1048577, 2097153, 7634945, 8388609, 18874369, 50462721, 67108865, 171966465, 403177473, 536870913, 1073741825

Offset: 0

Author

Paul Barry, Nov 12 2005

Keywords

• easy
• nonn

Examples

			a(5)=25 converts to 11001 in binary, which has sum of digits equal to 3, and 9=2*5-1 has 3 divisors.
		

Links

• Paolo Xausa, Table of n, a(n) for n = 0..1000

Crossrefs

Cf. A114000, A099774 (binary weight), A339916 (bit reversal).

Programs

Mathematica

A114001[n_]:=FromDigits[Boole[Divisible[2n+1,2Range[0,n]+1]],2];
Array[A114001,50,0] (* Paolo Xausa, Dec 04 2023 *)

Extensions

Edited by N. J. A. Sloane, Dec 23 2020

Offset changed to 0 by Paolo Xausa, Dec 04 2023