|
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
|
|
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]];
|
|
PROG
|
(Haskell)
import Data.List (elemIndex); import Data.Maybe (fromJust)
a096780 = (+ 1) . fromJust . (`elemIndex` a075383_list)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|