login
This site is supported by donations to The OEIS Foundation.

 

Logo

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

Table of n, a(n) for n=1..52.

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.

License Agreements, Terms of Use, Privacy Policy .

Last modified November 23 09:54 EST 2017. Contains 295116 sequences.