A061523 Integer part of the blowup factor for A025587(n).

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

Author

Larry Reeves (larryr(AT)acm.org), May 03 2001

Keywords

• nonn

Examples

			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...
		

Crossrefs

Cf. A025587, A295163.

Programs

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 *)