login
This site is supported by donations 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
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

Table of n, a(n) for n=0..28.

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.

License Agreements, Terms of Use, Privacy Policy. .

Last modified October 19 14:21 EDT 2018. Contains 316362 sequences. (Running on oeis4.)