%I A140832
%S A140832 1,2,5,12,30,75,188,470,1175,2938,7345,18362,45905,114762,286905,717262,
%T A140832 1793155,4482888,11207220,28018050,70045125,175112812,437782030,
%U A140832 1094455075,2736137688,6840344220,17100860550,42752151375,106880378438
%N A140832 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 A140832 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]]]
%Y A140832 Sequence in context: A054341 A000106 A076883 this_sequence A026580 A092247 
               A108360
%Y A140832 Adjacent sequences: A140829 A140830 A140831 this_sequence A140833 A140834 
               A140835
%K A140832 easy,nonn
%O A140832 0,2
%A A140832 Joel Brewster Lewis (jblewis(AT)post.harvard.edu), Jul 18 2008