A054426 Inverse permutation to A054424.

1, 2, 3, 4, 7, 8, 5, 6, 13, 19, 14, 15, 20, 16, 9, 10, 23, 34, 29, 35, 50, 43, 24, 25, 44, 53, 38, 30, 39, 26, 11, 12, 33, 59, 48, 66, 97, 84, 49, 60, 108, 132, 98, 86, 109, 75, 36, 37, 76, 112, 89, 99, 135, 113, 61, 54, 91, 100, 69, 55, 62, 40, 17, 18, 47, 82, 73, 105, 154

Offset

1,2

Links

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

Index entries for sequences that are permutations of the natural numbers

Formula

a(j) = nthmember(j, A054424)

Maple

nthmember := proc(e, l) local k; if(member(e, l, 'k')) then RETURN(k) else RETURN(0); fi; end;

Mathematica

a[n_] := If[p = Position[A054424, n]; p != {}, p[[1, 1]], 0]; (* Jean-François Alcover, Aug 20 2013 *)

Crossrefs

Sequence in context: A368037 A373814 A351490 * A372133 A054424 A297164

Adjacent sequences: A054423 A054424 A054425 * A054427 A054428 A054429

Keyword

nonn

Author

Antti Karttunen

Status

approved