

A077581


Triangle in which row n contains the n smallest numbers starting from 1 and coprime to n.


12



1, 1, 3, 1, 2, 4, 1, 3, 5, 7, 1, 2, 3, 4, 6, 1, 5, 7, 11, 13, 17, 1, 2, 3, 4, 5, 6, 8, 1, 3, 5, 7, 9, 11, 13, 15, 1, 2, 4, 5, 7, 8, 10, 11, 13, 1, 3, 7, 9, 11, 13, 17, 19, 21, 23, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 12, 1, 5, 7, 11, 13, 17, 19, 23, 25, 29, 31, 35, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12
(list;
table;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,3


COMMENTS



LINKS



EXAMPLE

1;
1, 3;
1, 2, 4;
1, 3, 5, 7;
1, 2, 3, 4, 6;
1, 5, 7, 11, 13, 17;
1, 2, 3, 4, 5, 6, 8;
1, 3, 5, 7, 9, ...


MATHEMATICA

row[n_] := Take[Select[Range[n^2], GCD[ #, n]==1&], n]; Join@@row/@Range[13]


PROG

(Haskell)
a077581 n k = a077581_tabl !! (n1) !! (k1)
a077581_row n = a077581_tabl !! (n1)
a077581_tabl = map (\x > take x [z  z < [1..], gcd x z == 1]) [1..]


CROSSREFS



KEYWORD



AUTHOR



EXTENSIONS



STATUS

approved



