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
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