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,1

Links

Arkadiusz Wesolowski, Table of n, a(n) for n = 1..10000

Eric Weisstein's World of Mathematics, Juggler Sequence

Formula

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

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

Crossrefs

Cf. A094683, A094716.

Sequence in context: A068502 A109959 A161990 * A030591 A343598 A006793

Adjacent sequences: A218332 A218333 A218334 * A218336 A218337 A218338

Keyword

nonn

Author

Arkadiusz Wesolowski, Oct 26 2012

Status

approved