[go: up one dir, main page]

login
A061523
Integer part of the blowup factor for A025587(n).
2
1, 5, 7, 10, 341, 356, 701, 1600, 1776, 2806, 3994, 9729, 20224, 21891, 107860, 115180, 131346, 204765, 221646, 284348, 426522, 748056, 9099150, 15596837, 27297444, 30359613, 4422186001
OFFSET
0,2
EXAMPLE
a(4)=10 since A025587(4)=15 and starting with 15 in the Collatz sequence gives a maximum value of 160 with a blowup factor of 160/15 = 10.66666...
MATHEMATICA
With[{s = Array[Max@ NestWhileList[If[EvenQ@ #, #/2, 3 # + 1] &, #, # > 1 &]/# &, 2^18]}, Floor@ Union@ FoldList[Max, s]] (* Michael De Vlieger, Mar 13 2018 *)
CROSSREFS
Sequence in context: A215660 A015849 A059303 * A119653 A023592 A076546
KEYWORD
nonn
AUTHOR
Larry Reeves (larryr(AT)acm.org), May 03 2001
STATUS
approved