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

 

Logo


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: A143602 A177999 A126710 * A180570 A074474 A070420

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 August 24 00:29 EDT 2017. Contains 291052 sequences.