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.

A094716 Largest value in trajectory of n under the juggler map of A094683.

This page as a plain text file.
%I A094716 #25 Apr 15 2025 11:58:50
%S A094716 0,1,2,36,4,36,6,18,8,140,36,36,36,46,36,58,16,70,18,140,20,140,22,
%T A094716 110,24,52214,36,140,36,156,36,172,36,2598,36,2978,36,24906114455136,
%U A094716 38,233046,40,262,42,4710,44,5222,46,322,48,6352,50,364,52,7554,54,8210,56,430,58,946636
%N A094716 Largest value in trajectory of n under the juggler map of A094683.
%C A094716 Harry J. Smith found that the highest value in the trajectory of 30817 is a number with 45391 digits and the highest value in the trajectory of 48443 is a number with 972463 digits. - _Jason Earls_, Jun 10 2004
%H A094716 Hans Havermann, <a href="/A094716/b094716.txt">Table of n, a(n) for n = 0..2188</a> (shortened by _N. J. A. Sloane_, Jan 13 2019)
%H A094716 Harry J. Smith, <a href="https://web.archive.org/web/20091027030300/http://geocities.com/hjsmithh/Juggler/">Juggler Numbers</a>
%t A094716 smx={};Do[a=n;mx=n;While[a!=1,a=If[Mod[a,2]==0,Floor[Sqrt[a]],Floor[a^(3/2)]];If[a>mx,mx=a]];AppendTo[smx,mx],{n,59}];Join[{0},smx] (* _James C. McMahon_, Apr 15 2025 *)
%K A094716 nonn,easy
%O A094716 0,3
%A A094716 _N. J. A. Sloane_, Jun 10 2004
%E A094716 More terms from _Jason Earls_, Jun 10 2004
%E A094716 a(37) corrected by _Labos Elemer_, Jun 19 2004
%E A094716 a(49) corrected by _Hans Havermann_, Dec 07 2017