%I #5 Nov 21 2013 12:49:22
%S 1,2,5,12,30,75,188,470,1175,2938,7345,18362,45905,114762,286905,
%T 717262,1793155,4482888,11207220,28018050,70045125,175112812,
%U 437782030,1094455075,2736137688,6840344220,17100860550,42752151375,106880378438
%N a(0) = 1; if a(n) is even, a(n + 1) = 5a(n)/2; if a(n) is odd, a(n + 1) is 5a(n)/2 rounded to the nearest even integer.
%t a[0] = 1; a[n_] := a[n] = If[IntegerQ[ 5a[n - 1]/2 ], 5a[n - 1]/2, If[IntegerQ[ Floor[5a[n - 1]/2]/2 ], Floor[5a[n - 1]/2], Ceiling[5a[n - 1]/2]]]
%t NestList[If[EvenQ[#],(5#)/2,Round[(5#)/2]]&,1,30] (* _Harvey P. Dale_, Dec 23 2011 *)
%K easy,nonn
%O 0,2
%A _Joel B. Lewis_, Jul 18 2008