This site is supported by donations to The OEIS Foundation.

 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
 1, 2, 5, 12, 30, 75, 188, 470, 1175, 2938, 7345, 18362, 45905, 114762, 286905, 717262, 1793155, 4482888, 11207220, 28018050, 70045125, 175112812, 437782030, 1094455075, 2736137688, 6840344220, 17100860550, 42752151375, 106880378438 (list; graph; refs; listen; history; text; internal format)
 OFFSET 0,2 LINKS MATHEMATICA 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]]] NestList[If[EvenQ[#], (5#)/2, Round[(5#)/2]]&, 1, 30] (* Harvey P. Dale, Dec 23 2011 *) CROSSREFS Sequence in context: A054341 A000106 A076883 * A026580 A092247 A108360 Adjacent sequences:  A140829 A140830 A140831 * A140833 A140834 A140835 KEYWORD easy,nonn AUTHOR Joel B. Lewis, Jul 18 2008 STATUS approved

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

Last modified October 23 16:15 EDT 2018. Contains 316529 sequences. (Running on oeis4.)