1,1

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

Index entries for sequences that are permutations of the natural numbers

a[n_] := If[OddQ[n], Floor[((n+1)/2 - 1) GoldenRatio] + (n+1)/2 + 1, Floor[(n/2 - 1) GoldenRatio] + 2]; a[2] = 1;

Array[a, 100] (* Jean-François Alcover, Apr 01 2020 *)

Odd-indexed terms: A026356. Even-indexed terms: A026355. Inverse permutation: A064579.

Sequence in context: A114861 A086512 A120751 * A339381 A238544 A101708

Adjacent sequences: A054079 A054080 A054081 * A054083 A054084 A054085

nonn,eigen

Clark Kimberling

approved