A094819 Number of steps needed for juggler sequence (A094683) started at 10^n to reach 1.

0, 7, 8, 7, 9, 6, 8, 7, 10, 7, 7, 20, 9, 25, 8, 11, 11, 13, 8, 10, 8, 16, 21, 24, 10, 18, 26, 15, 9, 45, 12, 31, 12, 20, 14, 22, 9, 20, 11, 25, 9, 33, 17, 33, 22, 30, 25, 11, 11, 30, 19, 13, 27, 21, 16, 10, 10, 16, 46, 70, 13, 13, 32, 21, 13, 21, 21, 48, 15, 29, 23, 29, 10, 18, 21

Offset: 0

Author

Jason Earls, Jun 12 2004

Keywords

• nonn

Crossrefs

Cf. A007320, A011557, A094683.

Programs

Mathematica

fj[n_]:=If[EvenQ[n], Floor[Sqrt[n]], Floor[n^(3/2)]];a094819[n_]:=Length[ NestWhileList[fj,10^n, # != 1 &]] - 1;Array[a094819,75,0] (* James C. McMahon, Apr 18 2025 *)

Formula

a(n) = A007320(A011557(n)). - Michel Marcus, Apr 19 2025