A330789 - OEIS

The OEIS is supported by the many generous donors to the OEIS Foundation.

Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).

Other ways to Give

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

(list; graph; refs; listen; history; text; internal format)

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