OFFSET
0,1
COMMENTS
Remark that initial values of form 64m+r, if r={3, 11, 19, 27, 35, 43, 51, 55} provide first-sink-lengths {7, 9, 7, 9, 7, 9, 7, 9} respectively; e.g. {64k+19, 192k+58, 96k+29, 288k+88, 144k+44, 72k+22, 36k+11} submerge first below initial value at the 7th term, 36k+11<64k+19.
LINKS
FORMULA
a(n) = A074473(64n+7), n=0, ..., 256
EXAMPLE
n=0: 64n+7=7, list={7, 22, 11, 34, 17, 52, 26, 13, 40, 20, 10, 5..}, i.e. the 12th term is the first that <12, the initial value.
MATHEMATICA
lcoll[n_] := Length[NestWhileList[If[EvenQ[#], #/2, 3 # + 1] &, n, # >= n &]]; Table[lcoll[64*i + 7], {i, 0, 68}] (* Jayanta Basu, Jun 15 2013 *)
PROG
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, Sep 23 2002
EXTENSIONS
Typo in formula corrected by Antti Karttunen, Oct 09 2018
STATUS
approved