|
|
|
|
#21 by Harvey P. Dale at Sun Jul 08 16:35:07 EDT 2018
|
|
|
|
#20 by Harvey P. Dale at Sun Jul 08 16:35:04 EDT 2018
|
| MATHEMATICA
|
Table[Which[EvenQ[n], n/2, Divisible[n, 3], n/3, True, 5n+1], {n, 70}] (* Harvey P. Dale, Jul 08 2018 *)
|
| STATUS
|
approved
editing
|
|
|
|
#19 by N. J. A. Sloane at Sun Mar 04 13:39:12 EST 2018
|
|
|
|
#18 by Chai Wah Wu at Sun Mar 04 13:10:22 EST 2018
|
|
|
|
#17 by Chai Wah Wu at Sun Mar 04 13:10:10 EST 2018
|
| EXTENSIONS
|
DefinitionComment clarified by Chai Wah Wu, Mar 04 2018
|
| STATUS
|
proposed
editing
|
|
|
|
#16 by Chai Wah Wu at Sun Mar 04 12:41:02 EST 2018
|
|
|
Discussion
|
Sun Mar 04
| 13:06
| Michel Marcus: You did not chane the name but a comment, so rather sign comment ?
|
|
|
|
#15 by Chai Wah Wu at Sun Mar 04 12:40:11 EST 2018
|
| 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.
|
| EXTENSIONS
|
Definition clarified by Chai Wah Wu, Mar 04 2018
|
|
|
|
#14 by Chai Wah Wu at Sun Mar 04 12:38:37 EST 2018
|
| FORMULA
|
From Chai Wah Wu, Mar 04 2018: (Start)
a(n) = 2*a(n-6) - a(n-12) 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)
|
| STATUS
|
approved
editing
|
|
|
|
#13 by Jon E. Schoenfield at Wed Sep 16 14:03:37 EDT 2015
|
|
|
|
#12 by Jon E. Schoenfield at Wed Sep 16 14:03:35 EDT 2015
|
| 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 *)
|
| STATUS
|
approved
editing
|
|
|
|