A096780 Inverse of A075383.

1, 2, 4, 3, 11, 5, 22, 7, 6, 12, 56, 8, 79, 23, 13, 9, 137, 16, 172, 10, 24, 57, 254, 17, 14, 80, 37, 25, 407, 15, 466, 29, 58, 138, 26, 18, 667, 173, 81, 30, 821, 19, 904, 59, 38, 255, 1082, 20, 27, 46, 139, 82, 1379, 21, 60, 28, 174, 408, 1712, 47, 1831, 467, 39

Offset: 1

Author

Reinhard Zumkeller, Jul 09 2004

Keywords

• nonn

Comments

Integer permutation: a(A075383(n)) = A075383(a(n)) = n;

A096782(n) = a(a(n)).

For any n > 0, A002024(a(n)) divides n. - Rémy Sigrist, Jan 29 2021

Links

• Reinhard Zumkeller, Table of n, a(n) for n = 1..1000
• Index entries for sequences that are permutations of the natural numbers

Crossrefs

Cf. A002024, A075383, A096782.

Programs

Haskell

import Data.List (elemIndex); import Data.Maybe (fromJust)
a096780 = (+ 1) . fromJust . (`elemIndex` a075383_list)
-- Reinhard Zumkeller, Nov 29 2015

Mathematica

nmax = 100; row[1] = {1}; row[n_] := row[n] = (For[rows = Join[row /@ Range[n-1]]; ro = {}; k = n, Length[ro] < n, k = k+n, If[FreeQ[rows, k], AppendTo[ro, k]]]; ro);
A075383 = Array[row, nmax] // Flatten;
a[n_] := FirstPosition[A075383, n][[1]];
Array[a, nmax] (* Jean-François Alcover, Apr 28 2017 *)