OFFSET
1,3
COMMENTS
LINKS
Eric Chen, First 160 rows of triangle, flattened
Eric Chen, First 1000 rows of triangle
EXAMPLE
Read by rows:
n maximal-order elements (<n) mod n
1 0
2 1
3 2
4 3
5 2, 3
6 5
7 3, 5
8 3, 5, 7
9 2, 5
10 3, 7
11 2, 6, 7, 8
12 5, 7, 11
13 2, 6, 7, 11
14 3, 5
15 2, 7, 8, 13
16 3, 5, 11, 13
17 3, 5, 6, 7, 10, 11, 12, 14
18 5, 11
19 2, 3, 10, 13, 14, 15
20 3, 7, 13, 17
etc.
MATHEMATICA
a[n_] := Select[Range[0, n-1], GCD[#, n] == 1 && MultiplicativeOrder[#, n] == CarmichaelLambda[n]& ]; Table[a[n], {n, 1, 36}]
PROG
(PARI) c(n)=lcm((znstar(n))[2])
a(n)=for(k=0, n-1, if(gcd(k, n)==1 && znorder(Mod(k, n))==c(n), print1(k, ", ")))
n=1; while(n<37, a(n); n++)
CROSSREFS
KEYWORD
nonn,tabf
AUTHOR
Eric Chen, May 20 2015
STATUS
approved