A050171 a(n)=least k satisfying a(k)=n in A050170.

1, 2, 5, 3, 8, 6, 21, 4, 13, 11, 9, 30, 7, 24, 22, 71, 20, 18, 16, 14, 45, 12, 39, 10, 33, 31, 106, 104, 29, 27, 25, 82, 23, 74, 72, 251, 249, 70, 68, 19, 62, 17, 54, 15, 48, 46, 163, 161, 44, 42, 40, 139, 38, 36, 34, 117, 115, 32, 109, 107, 366, 105

Offset

1,2

Links

Ivan Neretin, Table of n, a(n) for n = 1..2000

Mathematica

terms = 62; (* b = A050170 *) b[1] = 1; b[n_] := b[n] = If[FreeQ[Join[{0}, Array[b, n-1]], f = Floor[b[n-1]/Sqrt[5]]], f, Floor[b[n-1]*Sqrt[5]]]; Table[FirstPosition[Array[b, 6*terms], n], {n, 1, terms}] // Flatten (* Jean-François Alcover, Sep 12 2017 *)

Crossrefs

Sequence in context: A197393 A257271 A257280 * A258406 A136189 A309557

Adjacent sequences: A050168 A050169 A050170 * A050172 A050173 A050174

Keyword

nonn

Author

Clark Kimberling

Extensions

Missing terms inserted by Jean-François Alcover, Sep 12 2017

Status

approved