A218335 Even numbers n such that the largest value in trajectory of n under the juggler map of A094683 is greater than n.

10, 12, 14, 26, 28, 30, 32, 34, 82, 84, 86, 88, 90, 92, 94, 96, 98, 626, 628, 630, 632, 634, 636, 638, 640, 642, 644, 646, 648, 650, 652, 654, 656, 658, 660, 662, 664, 666, 668, 670, 672, 674, 1090, 1092, 1094, 1096, 1098, 1100, 1102, 1104, 1106, 1108, 1110

Offset: 1

Author

Arkadiusz Wesolowski, Oct 26 2012

Keywords

• nonn

Links

• Arkadiusz Wesolowski, Table of n, a(n) for n = 1..10000
• Eric Weisstein's World of Mathematics, Juggler Sequence

Crossrefs

Cf. A094683, A094716.

Programs

Mathematica

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

Formula

A number n is in the sequence if and only if n is even and A094716(n) > n.