[go: up one dir, main page]

login
A064685
Length of orbit of 2n+1 in the 3x+1 problem.
1
1, 8, 6, 17, 20, 15, 10, 18, 13, 21, 8, 16, 24, 112, 19, 107, 27, 14, 22, 35, 110, 30, 17, 105, 25, 25, 12, 113, 33, 33, 20, 108, 28, 28, 15, 103, 116, 15, 23, 36, 23, 111, 10, 31, 31, 93, 18, 106, 119, 26, 26, 88, 39, 101, 114, 70, 13, 34, 21, 34, 96, 47, 109, 47, 122
OFFSET
0,2
FORMULA
f(n)= n/2 if n is even, 3n+1 if n is odd; stop if n is 1.
EXAMPLE
E.g. orbit(3) = 3->10->5->16->8->4->2->1, so length of chain = 8
PROG
(ARIBAS): function a064685(maxarg: integer); var n: integer; begin for n := 1 to maxarg by 2 do write(length(orbit(n)), " "); end; end; a064685(140). For definition of function orbit see A064684.
CROSSREFS
Sequence in context: A119876 A281718 A036176 * A300885 A300941 A075486
KEYWORD
nonn,easy
AUTHOR
Jon Perry, Oct 10 2001
EXTENSIONS
More terms from Klaus Brockhaus, Oct 13 2001
STATUS
approved