cp's OEIS Frontend

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.

A330789 Terms of A005132 corresponding to the values in A330788.

This page as a plain text file.
%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