OFFSET
1,2
COMMENTS
Odd members of A059010. - Robert Israel, Nov 30 2019
LINKS
Jonathan Frech, Table of n, a(n) for n = 1..10000
MAPLE
q:= n-> (l-> l[1]=1 and add(1-i, i=l)::even)(Bits[Split](n)):
select(q, [$1..300])[]; # Alois P. Heinz, Oct 04 2019
MATHEMATICA
{1}~Join~Select[Range[3, 225, 2], EvenQ@ DigitCount[#, 2, 0] &] (* Michael De Vlieger, Oct 05 2019 *)
PROG
(PARI) ok(n)={n%2 && hammingweight((2<<logint(n, 2)) - 1 - n)%2==0} \\ Andrew Howroyd, Oct 01 2019
(Python)
n, a = 0, 1
while n < 58:
aa, k = a, 0
while aa > 0:
d, aa = aa%2, aa//2
if d == 0:
k = k+1
if k%2 == 0:
n = n+1
print(n, a)
a = a+2 # A.H.M. Smeets, Oct 04 2019
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Justin Clifton, Oct 01 2019
EXTENSIONS
More terms from Alois P. Heinz, Oct 04 2019
STATUS
approved
