login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A218335 Even numbers n such that the largest value in trajectory of n under the juggler map of A094683 is greater than n. 1

%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

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified March 28 10:55 EDT 2024. Contains 371241 sequences. (Running on oeis4.)