OFFSET
0,2
LINKS
Harvey P. Dale, Table of n, a(n) for n = 0..2000
MATHEMATICA
Select[Table[Length[NestWhileList[If[EvenQ[#], #/2, 3#+1]&, n, #!=1&]]-1, {n, 1000}], OddQ[Sqrt[8#+1]]&] (* Harvey P. Dale, Feb 06 2015 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
K. B. Subramaniam (kb_subramaniambalu(AT)yahoo.com), Dec 20 2001
EXTENSIONS
More terms from Sascha Kurz, Mar 23 2002
STATUS
approved