cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

Showing 1-4 of 4 results.

A143745 The next largest juggler number.

Original entry on oeis.org

1, 2, 36, 140, 52214, 24906114455136, 202924588924125339424550328
Offset: 1

Views

Author

Harry J. Smith, Oct 08 2008

Keywords

Comments

The juggler sequence: begin with a starting value x and if x is even, x <- floor(sqrt(x)) and if x is odd, x <- floor(sqrt(x^3)) and repeat until x = 1, save the starting value, max x and the number of steps needed to reach it.
I have a b-file for this sequence for n=1,...,19 (all known values), but some a(n) values are much larger than 1000 digits.

Examples

			24906114455136 is in the sequence because starting at 37 the juggler sequences maxes out at 24906114455136, a 14-digit number, after 8 steps. This is the largest juggler number found for starting values less than or equal to 37.
		

References

  • C. Pickover, Computers and the Imagination, St. Martin's Press, NY, 1991, p. 233.

Crossrefs

A143742 Starting values that produce a larger juggler number than smaller starting values.

Original entry on oeis.org

1, 2, 3, 9, 25, 37, 113, 173, 193, 2183, 11229, 15065, 15845, 30817, 48443, 275485, 1267909, 2264915, 5812827, 7110201
Offset: 1

Views

Author

Harry J. Smith, Oct 06 2008

Keywords

Comments

The juggler sequence: begin with a starting value x and if x is even, x -> [sqrt(x)] and if x is odd, x -> [sqrt(x^3)] and repeat until x = 1, save the starting value, max x and the number of steps needed to reach it.

Examples

			37 is in the sequence because starting at 37 the juggler sequences maxes out at 24906114455136, a 14-digit number, after 8 steps. This is the largest juggler number found for starting values less than or equal to 37.
		

References

  • C. Pickover, Computers and the Imagination, St. Martin's Press, NY, 1991, p. 233.

Crossrefs

Programs

  • Mathematica
    DeleteDuplicates[Table[{n,Max[NestWhileList[If[EvenQ[#],Floor[Sqrt[#]],Floor[Sqrt[#^3]]]&,n,#!=1&]]},{n,50000}],GreaterEqual [#1[[2]],#2[[2]]]&][[;;,1]] (* The program generates the first 15 terms of the sequence. *) (* Harvey P. Dale, Dec 21 2024 *)

Extensions

Comment clarified by Harvey P. Dale, Dec 21 2024

A143743 The number of digits in the next largest juggler number.

Original entry on oeis.org

1, 1, 2, 3, 5, 14, 27, 82, 271, 5929, 8201, 11723, 23889, 45391, 972463, 1909410, 1952329, 2855584, 7996276
Offset: 1

Views

Author

Harry J. Smith, Oct 08 2008

Keywords

Comments

The juggler sequence: begin with a starting value x and if x is even, x <- [sqrt(x)] and if x is odd, x <- [sqrt(x^3)] and repeat until x = 1, save the starting value, max x and the number of steps needed to reach it.

Examples

			14 is in the sequence because starting at 37 the juggler sequence maxes out at 24906114455136, a 14-digit number, after 8 steps. This is the largest juggler number found for starting values less than or equal to 37.
		

References

  • C. Pickover, Computers and the Imagination, St. Martin's Press, NY, 1991, p. 233.

Crossrefs

A143744 The number of steps needed to generate the next largest juggler number.

Original entry on oeis.org

0, 0, 3, 2, 3, 8, 9, 17, 47, 32, 54, 25, 43, 39, 60, 148, 99, 89, 67
Offset: 1

Views

Author

Harry J. Smith, Oct 08 2008

Keywords

Comments

The juggler sequence: begin with a starting value x and if x is even, x <- [sqrt(x)] and if x is odd, x <- [sqrt(x^3)] and repeat until x = 1, save the starting value, max x and the number of steps needed to reach it.

Examples

			8 is in the sequence because starting at 37 the juggler sequences maxes out at 24906114455136, a 14-digit number, after 8 steps. This is the largest juggler number found for starting values less than or equal to 37.
		

References

  • C. Pickover, Computers and the Imagination, St. Martin's Press, NY, 1991, p. 233.

Crossrefs

Showing 1-4 of 4 results.