Magic squares of order 4n
magic.4n.RdProduces an associative magic square of order \(4n\) using the delta-x method.
Examples
magic.4n(4)
#> [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10] [,11] [,12] [,13]
#> [1,] 256 17 33 208 192 81 97 144 128 145 161 80 64
#> [2,] 2 239 223 50 66 175 159 114 130 111 95 178 194
#> [3,] 3 238 222 51 67 174 158 115 131 110 94 179 195
#> [4,] 253 20 36 205 189 84 100 141 125 148 164 77 61
#> [5,] 252 21 37 204 188 85 101 140 124 149 165 76 60
#> [6,] 6 235 219 54 70 171 155 118 134 107 91 182 198
#> [7,] 7 234 218 55 71 170 154 119 135 106 90 183 199
#> [8,] 249 24 40 201 185 88 104 137 121 152 168 73 57
#> [9,] 248 25 41 200 184 89 105 136 120 153 169 72 56
#> [10,] 10 231 215 58 74 167 151 122 138 103 87 186 202
#> [11,] 11 230 214 59 75 166 150 123 139 102 86 187 203
#> [12,] 245 28 44 197 181 92 108 133 117 156 172 69 53
#> [13,] 244 29 45 196 180 93 109 132 116 157 173 68 52
#> [14,] 14 227 211 62 78 163 147 126 142 99 83 190 206
#> [15,] 15 226 210 63 79 162 146 127 143 98 82 191 207
#> [16,] 241 32 48 193 177 96 112 129 113 160 176 65 49
#> [,14] [,15] [,16]
#> [1,] 209 225 16
#> [2,] 47 31 242
#> [3,] 46 30 243
#> [4,] 212 228 13
#> [5,] 213 229 12
#> [6,] 43 27 246
#> [7,] 42 26 247
#> [8,] 216 232 9
#> [9,] 217 233 8
#> [10,] 39 23 250
#> [11,] 38 22 251
#> [12,] 220 236 5
#> [13,] 221 237 4
#> [14,] 35 19 254
#> [15,] 34 18 255
#> [16,] 224 240 1
is.magic(magic.4n(5))
#> [1] TRUE