

A133419


Image of n under one application of the "5x+1" map.


10



6, 1, 1, 2, 26, 3, 36, 4, 3, 5, 56, 6, 66, 7, 5, 8, 86, 9, 96, 10, 7, 11, 116, 12, 126, 13, 9, 14, 146, 15, 156, 16, 11, 17, 176, 18, 186, 19, 13, 20, 206, 21, 216, 22, 15, 23, 236, 24, 246, 25, 17, 26, 266, 27, 276, 28, 19, 29, 296, 30, 306, 31, 21, 32, 326, 33, 336, 34, 23, 35
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,1


COMMENTS

The 5x+1 map sends x to x/2 if x is even, x/3 if x is odd and divisible by 3, otherwise 5x+1.


LINKS



FORMULA

a(n) = 2*a(n6)  a(n12) for n > 12.
G.f.: x*(4*x^10 + x^9 + x^8 + 2*x^7 + 24*x^6 + 3*x^5 + 26*x^4 + 2*x^3 + x^2 + x + 6)/(x^12  2*x^6 + 1). (End)


MATHEMATICA

Table[If[EvenQ[n], n/2, If[Mod[n, 3] == 0, n/3, 5*n + 1]], {n, 1, 80}] (* Stefan Steinerberger, Feb 16 2008 *)
Table[Which[EvenQ[n], n/2, Divisible[n, 3], n/3, True, 5n+1], {n, 70}] (* Harvey P. Dale, Jul 08 2018 *)


PROG



CROSSREFS



KEYWORD

nonn,easy


AUTHOR



EXTENSIONS



STATUS

approved



