login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
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. 0

%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

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified March 29 03:39 EDT 2024. Contains 371264 sequences. (Running on oeis4.)