%I #12 Feb 12 2021 22:02:57
%S 1,2,3,4,8,12,16,17,18,19,32,33,34,35,48,49,50,51,64,68,72,76,128,132,
%T 136,140,192,196,200,204,256,257,258,259,272,273,274,275,288,289,290,
%U 291,304,305,306,307,512,513,514,515,528,529
%N Numbers whose base-4 representation Sum_{i=0..m} d(i)*4^(m-i) has d(i)=0 for all odd i.
%H Robert Israel, <a href="/A032939/b032939.txt">Table of n, a(n) for n = 1..10000</a>
%p f:= proc(n,j) local L,m;
%p L:= convert(n,base,4);
%p m:= nops(L);
%p j*add(L[i+1]*4^(2*i),i=0..m-1)
%p end proc:
%p seq(seq(seq(f(n,j),n=4^k..4^(k+1)-1),j=[1,4]),k=0..3)
%K nonn,base
%O 1,2
%A _Clark Kimberling_
%E Definition corrected by _Robert Israel_, Nov 15 2020
|