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,2

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

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

Prog

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

Crossrefs

Cf. A002024, A075383, A096782.

Sequence in context: A271866 A093839 A248981 * A332454 A143986 A059662

Adjacent sequences: A096777 A096778 A096779 * A096781 A096782 A096783

Keyword

nonn

Author

Reinhard Zumkeller, Jul 09 2004

Status

approved