%I #4 Mar 30 2012 17:40:05
%S 1,4,5,11,13,14,15,17,20,21,23,25,29,31,32,33,35,37,39,40,42,43,47,48,
%T 49,50,53,54,55,56,58,60,61,62,63,64,65,68,71,77,79,80,85,87,88,90,92,
%U 99,100,103,112,114,115,118,123,124,128,129,130,131,132,134,137,139,140
%N a(n) = A127219(n)/2.
%p Contribution from _R. J. Mathar_, Oct 09 2010: (Start)
%p A127219 := proc(n) option remember; if n = 1 then 2; else for a from procname(n-1)+2 by 2 do if type(combinat[numbpart](a) ,'even') then return a; fi; end do; fi ; end proc:
%p A163098 := proc(n) A127219(n)/2 ; end proc;
%p seq(A163098(n),n=1..100) ; (End)
%Y Cf. A000041, A127219, A154798, A163288.
%K nonn
%O 1,2
%A _Omar E. Pol_, Aug 09 2009
%E More terms from _R. J. Mathar_, Oct 09 2010