OFFSET
1,2
LINKS
Cino Hilliard, The x+1 conjecture
EXAMPLE
7 -> 8 -> 4 -> 2 -> 1, so the 7th row is 8,4,2,1.
MATHEMATICA
Table[Rest[NestWhileList[If[OddQ[#], #+1, #/2]&, n, #>1&]], {n, 30}] //Flatten (* Harvey P. Dale, Dec 04 2016 *)
PROG
(PARI) xnp1(n, p) = { print1(1" "); for(x=1, n, p1 = x; while(p1>1, if(p1%2==0, p1/=2, p1 = p1*p+1; ); print1(p1" ") ) ) }
CROSSREFS
KEYWORD
easy,nonn,tabf
AUTHOR
Cino Hilliard, Mar 26 2003
STATUS
approved