OFFSET
0,2
LINKS
Paolo Xausa, Table of n, a(n) for n = 0..1000
EXAMPLE
a(5)=25 converts to 11001 in binary, which has sum of digits equal to 3, and 9=2*5-1 has 3 divisors.
MATHEMATICA
A114001[n_]:=FromDigits[Boole[Divisible[2n+1, 2Range[0, n]+1]], 2];
Array[A114001, 50, 0] (* Paolo Xausa, Dec 04 2023 *)
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Paul Barry, Nov 12 2005
EXTENSIONS
Edited by N. J. A. Sloane, Dec 23 2020
Offset changed to 0 by Paolo Xausa, Dec 04 2023
STATUS
approved