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