OFFSET
1,2
COMMENTS
A096782(n) = a(a(n)).
For any n > 0, A002024(a(n)) divides n. - Rémy Sigrist, Jan 29 2021
LINKS
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
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Jul 09 2004
STATUS
approved