login
A163098
a(n) = A127219(n)/2.
1
1, 4, 5, 11, 13, 14, 15, 17, 20, 21, 23, 25, 29, 31, 32, 33, 35, 37, 39, 40, 42, 43, 47, 48, 49, 50, 53, 54, 55, 56, 58, 60, 61, 62, 63, 64, 65, 68, 71, 77, 79, 80, 85, 87, 88, 90, 92, 99, 100, 103, 112, 114, 115, 118, 123, 124, 128, 129, 130, 131, 132, 134, 137, 139, 140
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:
A163098 := proc(n) A127219(n)/2 ; 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