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,2

Links

Table of n, a(n) for n=1..28.

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

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

Crossrefs

Cf. A005132, A064621, A064622, A330788.

Sequence in context: A072390 A213136 A117705 * A031079 A364764 A355864

Adjacent sequences: A330786 A330787 A330788 * A330790 A330791 A330792

Keyword

nonn,more

Author

Jud McCranie, Dec 31 2019

Status

approved