login
a(n) = A127219(n)/2.
1

%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