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

Author

Antti Karttunen

Keywords

• nonn

Links

• Index entries for sequences that are permutations of the natural numbers

Programs

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 *)

Formula

a(j) = nthmember(j, A054424)