

A050171


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


1



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
(list;
graph;
refs;
listen;
history;
text;
internal format)



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, n1]], f = Floor[b[n1]/Sqrt[5]]], f, Floor[b[n1]*Sqrt[5]]]; Table[FirstPosition[Array[b, 6*terms], n], {n, 1, terms}] // Flatten (* JeanFranç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 JeanFrançois Alcover, Sep 12 2017


STATUS

approved



