|
%I #15 Jan 15 2019 01:56:02
%S 7,12,6,3,5,9,15,25,41,66,33,53,85,137,220,110,55,89,143,229,367,588,
%T 294,147,236,118,59,95,153,245,393,629,1007,1612,806,403,645,1033,
%U 1653,2645,4233,6773,10837,17340,8670,4335,6937,11100,5550,2775,4441,7106
%N Trajectory of 7 under the map m -> A082010(m).
%C 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]
%H Robert Israel, <a href="/A152199/b152199.txt">Table of n, a(n) for n = 1..10000</a>
%p 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
%t NestList[If[EvenQ[ # ], #/2, Floor[8*#/5] + 1] &, 7, 100] (* _Zak Seidov_, Oct 07 2009 *)
%K nonn
%O 1,1
%A _N. J. A. Sloane_, Oct 06 2009, suggested by a posting to the Sequence Fans Mailing List by _Yasutoshi Kohmoto_, Sep 30 2009
%E More terms from _R. J. Mathar_ and _Zak Seidov_, Oct 07 2009
|
