A152199 Trajectory of 7 under the map m -> A082010(m).

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

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

Robert Israel, Table of n, a(n) for n = 1..10000

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: A293220 A126710 A300729 * A293926 A038598 A180570

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