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 A375911 #16 Sep 13 2024 08:00:21 %S A375911 1,3,5,17,9,17,17,15,17,29,21,53,25,27,29,161,33,53,37,39,41,65,45, %T A375911 161,49,51,53,125,57,89,161,63,65,101,69,161,73,75,77,269,81,125,85, %U A375911 87,89,137,161,485,97,99,101,233,105,161,125,111,113,173,117,269,161 %N A375911 Largest value in the trajectory of 2*n - 1 in the Farkas map (A349407). %H A375911 Paolo Xausa, <a href="/A375911/b375911.txt">Table of n, a(n) for n = 1..10000</a> %F A375911 a(n) = max{A350279(n,k) for 1 <= k <= A375909(n) + 1}. %e A375911 a(10) = 29 because 29 is the largest value in the trajectory 19 -> 29 -> 15 -> 5 -> 3 -> 1. %t A375911 FarkasStep[x_] := Which[Divisible[x, 3], x/3, Mod[x, 4] == 3, (3*x + 1)/2, True, (x + 1)/2]; %t A375911 Array[Max[FixedPointList[FarkasStep, 2*# - 1]] &, 100] %Y A375911 Cf. A349407, A350279, A375909. %Y A375911 Cf. A025586, A365478, A375280. %K A375911 nonn,easy %O A375911 1,2 %A A375911 _Paolo Xausa_, Sep 02 2024