tc>.r totient.tc
 825
 0 32 825 89175
tc>.allstars

 5 - 4 - 1
 6 - 2 - 0
 7 - 6 - 2
 8 - 4 - 1
 9 - 6 - 2
 10 - 4 - 1
 11 - 10 - 4
 12 - 4 - 1
 13 - 12 - 5
 14 - 6 - 2
 15 - 8 - 3
 16 - 8 - 3
 17 - 16 - 7
 18 - 6 - 2
 19 - 18 - 8
 20 - 8 - 3
 21 - 12 - 5
 22 - 10 - 4
 23 - 22 - 10
 24 - 8 - 3
 25 - 20 - 9
 26 - 12 - 5
 27 - 18 - 8
 28 - 12 - 5
 29 - 28 - 13
 30 - 8 - 3
 31 - 30 - 14
 32 - 16 - 7
 33 - 20 - 9
 34 - 16 - 7
 35 - 24 - 11
 36 - 12 - 5
 37 - 36 - 17
 38 - 18 - 8
 39 - 24 - 11
 40 - 16 - 7
 41 - 40 - 19
 42 - 12 - 5
 43 - 42 - 20
 44 - 20 - 9
 45 - 24 - 11
 46 - 22 - 10
 47 - 46 - 22
 48 - 16 - 7
 49 - 42 - 20
 50 - 20 - 9
 51 - 32 - 15
 52 - 24 - 11
 53 - 52 - 25
 54 - 18 - 8
 55 - 40 - 19
 56 - 24 - 11
 57 - 36 - 17
 58 - 28 - 13
 59 - 58 - 28
 60 - 16 - 7
 61 - 60 - 29
 62 - 30 - 14
 63 - 36 - 17
 64 - 32 - 15
 65 - 48 - 23
 66 - 20 - 9
 67 - 66 - 32
 68 - 32 - 15
 69 - 44 - 21
 70 - 24 - 11
 71 - 70 - 34
 72 - 24 - 11
 73 - 72 - 35
 74 - 36 - 17
 75 - 40 - 19
 76 - 36 - 17
 77 - 60 - 29
 78 - 24 - 11
 79 - 78 - 38
 80 - 32 - 15
 81 - 54 - 26
 82 - 40 - 19
 83 - 82 - 40
 84 - 24 - 11
 85 - 64 - 31
 86 - 42 - 20
 87 - 56 - 27
 88 - 40 - 19
 89 - 88 - 43
 90 - 24 - 11
 91 - 72 - 35
 92 - 44 - 21
 93 - 60 - 29
 94 - 46 - 22
 95 - 72 - 35
 96 - 32 - 15
 97 - 96 - 47
 98 - 42 - 20
 99 - 60 - 29
 100 - 40 - 19
 101 - 100 - 49

tc>.[int t;t=totient 1000;t=(t-2)/2;pn t]
 199
tc>