OFFSET
1,2
MAPLE
Contribution from R. J. Mathar, Oct 09 2010: (Start)
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:
seq(A163098(n), n=1..100) ; (End)
CROSSREFS
KEYWORD
nonn
AUTHOR
Omar E. Pol, Aug 09 2009
EXTENSIONS
More terms from R. J. Mathar, Oct 09 2010
STATUS
approved