A163098 a(n) = A127219(n)/2.

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

Author

Omar E. Pol, Aug 09 2009

Keywords

• nonn

Crossrefs

Cf. A000041, A127219, A154798, A163288.

Programs

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)

Extensions

More terms from R. J. Mathar, Oct 09 2010