>>351
最近、直感解はハズレが多いね。
100個列挙。
> n[order(p,decreasing = TRUE)][1:100]
[1] 60 59 61 58 62 57 63 56 64 55 65 66 54 67 53 68 52 69 70 51 71 50 72
[24] 73 49 74 75 48 76 77 47 78 79 46 80 81 45 82 83 44 84 85 86 43 87 88
[47] 89 42 90 91 41 92 93 94 95 40 96 97 98 39 99 100 101 102 38 103 104 105 106
[70] 37 107 108 109 110 36 111 112 113 114 115 35 116 117 118 119 120 34 121 122 123 124 125
[93] 126 33 127 128 129 130 131 132

indexつきで列挙しているの数が数えられないのがいたなぁ。