This site is supported by donations to The OEIS Foundation.

 Annual appeal: Please make a donation to keep the OEIS running! Over 6000 articles have referenced us, often saying "we discovered this result with the help of the OEIS". Other ways to donate

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A152199 Trajectory of 7 under the map m -> A082010(m). 2
 7, 12, 6, 3, 5, 9, 15, 25, 41, 66, 33, 53, 85, 137, 220, 110, 55, 89, 143, 229, 367, 588, 294, 147, 236, 118, 59, 95, 153, 245, 393, 629, 1007, 1612, 806, 403, 645, 1033, 1653, 2645, 4233, 6773, 10837, 17340, 8670, 4335, 6937, 11100, 5550, 2775, 4441, 7106 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,1 COMMENTS First differences: 5,-6,-3,2,4,6,10,16,25,-33,20,32,52,83,-110,-55,34,54,86,138,221,-294,-147,89, -118,-59,36,58,92,148,236,378,605,-806,-403,242,388,620,992,1588,2540,4064,6503,-8670, -4335,2602,4163,-5550,-2775,1666,2665,-3553,2132,3412,5459,-7278,-3639, 2184,3494,5591,-7454,-3727,2237,-2982,-1491,895,-1193,716,1146,1834,2934,4694, 7511,-10014,-5007,3005,-4006,-2003,1202,1924,3078,4925,-6566,-3283,1970,3152, 5044,8070,12912,20659,-27545,16528,26444,42311,-56414,-28207,16925,-22566, -11283,6770. [Zak Seidov, Oct 07 2009] LINKS MAPLE A082010 := proc(n) if type(n, 'even') then n/2; else 1+floor(8*n/5) ; fi; end: A152199 := proc(n) option remember; if n = 1 then 7; else A082010(procname(n-1)) ; fi; end: seq(A152199(n), n=1..100) ; # R. J. Mathar, Oct 07 2009 MATHEMATICA NestList[If[EvenQ[ # ], #/2, Floor[8*#/5] + 1] &, 7, 100] (* Zak Seidov, Oct 07 2009 *) CROSSREFS Sequence in context: A177999 A293220 A126710 * A293926 A180570 A074474 Adjacent sequences:  A152196 A152197 A152198 * A152200 A152201 A152202 KEYWORD nonn AUTHOR N. J. A. Sloane, Oct 06 2009, suggested by a posting to the Sequence Fans Mailing List by Yasutoshi Kohmoto, Sep 30 2009 EXTENSIONS More terms from R. J. Mathar and Zak Seidov, Oct 07 2009 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.