OFFSET
1,1
COMMENTS
Reaches 4, 2, 1, 4, 2, 1, ... in 437 steps. - T. D. Noe, Mar 01 2008
LINKS
T. D. Noe, Table of n, a(n) for n=1..437
MATHEMATICA
NestList[If[EvenQ[#], #/2, 5# - 1] &, 19, 100] (* Alonso del Arte, Nov 19 2020 *)
PROG
(Scala) def fiveX(n: Int): Int = n % 2 match {
case 0 => n / 2
case _ => 5 * n - 1
}
val A037238 = LazyList.iterate(19)(fiveX)
A037238.take(100).toList // Alonso del Arte, Nov 19 2020
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Dan Goldwater (dan(AT)craftech.com)
EXTENSIONS
More terms from Erich Friedman.
Definition clarified by N. J. A. Sloane, Sep 14 2024
STATUS
approved