OFFSET
0,2
COMMENTS
See A152199 for the orbit of 7 under this map (which includes the orbit of 3, 5, 6, 7, 9, ... as well). - M. F. Hasler, Jun 12 2012
This is the 8/5 map, a particular case of the m/n sequence mentioned by Yasutoshi Kohmoto on the SeqFan list (cf. link), which also includes the Collatz map A014682 (for m/n = 3/2). - M. F. Hasler, Jun 12 2012
LINKS
Yasutoshi Kohmoto, 8/5 Sequence, SeqFan list, Sep 30 2009
OEIS wiki, m/n sequences, M. F. Hasler, Jun 12 2012
Index entries for linear recurrences with constant coefficients, signature (0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0, -1).
FORMULA
a(n) = +a(n-2) +a(n-10) -a(n-12). G.f.: x*(1+x+x^2)*(x^8+2*x^6-x^5+2*x^4+2*x^2-x+2) / ( (1+x+x^2+x^3+x^4)*(x^4-x^3+x^2-x+1)*(x-1)^2*(1+x)^2 ). - R. J. Mathar, Feb 20 2011
MATHEMATICA
Table[If[EvenQ[n], n/2, Floor[(8n)/5+1]], {n, 0, 80}] (* or *) LinearRecurrence[ {0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0, -1}, {0, 2, 1, 5, 2, 9, 3, 12, 4, 15, 5, 18}, 80] (* Harvey P. Dale, Dec 18 2012 *)
PROG
(PARI) A082010(x)=if(bittest(x, 0), 8*x\5+1, x\2) \\ M. F. Hasler, Jun 12 2012
CROSSREFS
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Oct 06 2009, suggested by postings to the Sequence Fans Mailing List by Yasutoshi Kohmoto and Franklin T. Adams-Watters, Sep 30 2009
STATUS
approved