A096782 -id:A096782 - cp's OEIS frontend

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

Reinhard Zumkeller, Jul 09 2004

nonn

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

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

Cf. A002024, A075383, A096782.

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

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

A096781 a(n) = A075383(A075383(n)).

Original entry on oeis.org

1, 2, 3, 4, 9, 16, 12, 10, 18, 48, 6, 20, 30, 28, 40, 36, 21, 104, 99, 70, 150, 8, 25, 54, 56, 96, 100, 11, 72, 81, 132, 192, 26, 195, 224, 350, 49, 126, 121, 39, 221, 280, 135, 345, 304, 110, 55, 168, 294, 225, 390, 384, 68, 323, 414, 5, 7, 80, 117, 160, 154, 252

Offset: 1

Reinhard Zumkeller, Jul 09 2004

nonn

Integer permutation with inverse A096782: a(A096782(n)) = A096782(a(n)) = n;

A096780(a(n)) = a(A096780(n)) = A075383(n).

Index entries for sequences that are permutations of the natural numbers

Cf. A075383.

a096781 = a . a where a = (a075383_list !!) . subtract 1
-- Reinhard Zumkeller, Nov 29 2015

cp's OEIS Frontend

A096780 Inverse of A075383.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Haskell

Mathematica