A330789 Terms of A005132 corresponding to the values in A330788.

1, 2, 14, 27, 26, 40, 5, 4, 830, 829, 828, 1414, 1354, 1306, 835, 834, 366, 19, 4202, 57520, 14804, 23289, 14510, 2426, 2405, 1814, 1643, 1355

Offset: 1

Author

Jud McCranie, Dec 31 2019

Keywords

• nonn
• more

Links

• Index entries for sequences related to Recamán's sequence

Crossrefs

Cf. A005132, A064621, A064622, A330788.

Programs

Mathematica

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 *)