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.
%I A218335 #8 Feb 16 2025 08:33:18
%S A218335 10,12,14,26,28,30,32,34,82,84,86,88,90,92,94,96,98,626,628,630,632,
%T A218335 634,636,638,640,642,644,646,648,650,652,654,656,658,660,662,664,666,
%U A218335 668,670,672,674,1090,1092,1094,1096,1098,1100,1102,1104,1106,1108,1110
%N A218335 Even numbers n such that the largest value in trajectory of n under the juggler map of A094683 is greater than n.
%H A218335 Arkadiusz Wesolowski, <a href="/A218335/b218335.txt">Table of n, a(n) for n = 1..10000</a>
%H A218335 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/JugglerSequence.html">Juggler Sequence</a>
%F A218335 A number n is in the sequence if and only if n is even and A094716(n) > n.
%t A218335 lst = {}; Do[n = a; While[True, If[EvenQ[a], a = Floor[a^(1/2)]; If[a == 1, Break[]], a = Floor[a^(3/2)]; If[a > n, AppendTo[lst, n]; Break[]]]], {a, 2, 1110, 2}]; lst
%Y A218335 Cf. A094683, A094716.
%K A218335 nonn
%O A218335 1,1
%A A218335 _Arkadiusz Wesolowski_, Oct 26 2012