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 A330789 #13 Jan 03 2020 22:58:52 %S A330789 1,2,14,27,26,40,5,4,830,829,828,1414,1354,1306,835,834,366,19,4202, %T A330789 57520,14804,23289,14510,2426,2405,1814,1643,1355 %N A330789 Terms of A005132 corresponding to the values in A330788. %H A330789 <a href="/index/Rea#Recaman">Index entries for sequences related to Recamán's sequence</a> %t A330789 Block[{s = Rest@ Nest[Append[#, If[And[#3 > 0, FreeQ[#1, #3]], #3, #1[[-1]] + #2]] & @@ {#, Length@ #, #[[-1]] - Length@ #} &, {0}, 10^5], t, u}, t = MapIndexed[First[#2]/#1 &, s]; u = MapAt[1 &, #, 1] &@ Union@ FoldList[Max, Rest@ t]; Map[s[[ FirstPosition[t, #][[1]] ]] &, u]] (* _Michael De Vlieger_, Jan 01 2020 *) %Y A330789 Cf. A005132, A064621, A064622, A330788. %K A330789 nonn,more %O A330789 1,2 %A A330789 _Jud McCranie_, Dec 31 2019