%I #16 Dec 04 2023 06:38:08
%S 1,3,5,9,25,33,65,225,257,513,1665,2049,5121,12801,16385,32769,100353,
%T 180225,262145,794625,1048577,2097153,7634945,8388609,18874369,
%U 50462721,67108865,171966465,403177473,536870913,1073741825
%N Rows of A114000 expressed as decimals (a sequence related to the number of divisors of 2n-1).
%H Paolo Xausa, <a href="/A114001/b114001.txt">Table of n, a(n) for n = 0..1000</a>
%e a(5)=25 converts to 11001 in binary, which has sum of digits equal to 3, and 9=2*5-1 has 3 divisors.
%t A114001[n_]:=FromDigits[Boole[Divisible[2n+1,2Range[0,n]+1]],2];
%t Array[A114001,50,0] (* _Paolo Xausa_, Dec 04 2023 *)
%Y Cf. A114000, A099774 (binary weight), A339916 (bit reversal).
%K easy,nonn
%O 0,2
%A _Paul Barry_, Nov 12 2005
%E Edited by _N. J. A. Sloane_, Dec 23 2020
%E Offset changed to 0 by _Paolo Xausa_, Dec 04 2023
|