login
Terms of A005132 corresponding to the values in A330788.
2

%I #13 Jan 03 2020 22:58:52

%S 1,2,14,27,26,40,5,4,830,829,828,1414,1354,1306,835,834,366,19,4202,

%T 57520,14804,23289,14510,2426,2405,1814,1643,1355

%N Terms of A005132 corresponding to the values in A330788.

%H <a href="/index/Rea#Recaman">Index entries for sequences related to Recamán's sequence</a>

%t 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 Cf. A005132, A064621, A064622, A330788.

%K nonn,more

%O 1,2

%A _Jud McCranie_, Dec 31 2019