20/10/02 14:38:33.55 /iB13sh9.net
100まで書いてみたけど、簡単に見いだせる規則性ってあるかなぁ？
> print(mat,quote=FALSE)
[,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10] [,11] [,12] [,13] [,14] [,15]
[1,] 1 3 4 10 11 21 22 36 37 55 56 78 79
[2,] 2 5 9 12 20 23 35 38 54 57 77 80
[3,] 6 8 13 19 24 34 39 53 58 76 81
[4,] 7 14 18 25 33 40 52 59 75 82
[5,] 15 17 26 32 41 51 60 74 83
[6,] 16 27 31 42 50 61 73 84 100
[7,] 28 30 43 49 62 72 85 99
[8,] 29 44 48 63 71 86 98
[9,] 45 47 64 70 87 97
[10,] 46 65 69 88