OFFSET
1,3
COMMENTS
a(n) = max(abs(A070165(n,k+1) - A070165(n,k)): k=1..A006577(n)-1). - Reinhard Zumkeller, May 30 2013
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
MATHEMATICA
coll[n_] := NestWhileList[If[EvenQ[#], #/2, 3#+1] &, n, #>1 &]; Join[{0}, Table[Max[Abs[Differences[coll[n]]]], {n, 2, 60}]]
PROG
(Haskell)
a226110 1 = 0
a226110 n = maximum $ map abs $ zipWith (-) (tail ts) ts
where ts = a070165_row n
-- Reinhard Zumkeller, May 30 2013
CROSSREFS
KEYWORD
nonn
AUTHOR
Jayanta Basu, May 27 2013
STATUS
approved