Advertisement
algorithmuscanorj

(10-1)^N! Conjecture partial proof program

Dec 14th, 2012
373
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 34.10 KB | None | 0 0
  1. (*
  2.  
  3. ( From: http://www.oeis.org/a217626 )
  4.  
  5. (10-1)^N! Conjecture:
  6.  
  7. Let be "N", a natural number greater than the unit.
  8.    
  9. No matter how are subtracted two elements from the set of N! permutations for the
  10. first N natural numbers. All of those differences are always divisible by (10-1),
  11. for every radix of a number system where the mentioned permutations are readable.
  12.  
  13. The author's motivation for such kind of conjecture arises after the indetification
  14. of the pair of sequences A215940 and A217626 which were reported to OEIS.org, originally
  15. in the purpose of understanding the combinatorics underlying to determinants calculation
  16. a little bit better (necessary in several branches of Physics like the small oscillations
  17. treatment of dynamical systems in classical mechanics).
  18.  
  19. Remy Cano, <aallggoorriitthhmmuuss@gmail.com>
  20.    
  21. 2012 Oct 11, 15:00h VET.
  22.  
  23. *)
  24.  
  25. program no_matter_neither_how_are_subtracted_nor_how_are_enumerated_CONJECTURE_case_3;
  26.  
  27. const
  28.  
  29. arbitraryBig= 32767; (* The greatest Mersenne allowed for "integer" in Borland Turbo Pascal 6.0 *)
  30. threeFactorial= (1*2*3);
  31. fourFactorial= threeFactorial*4;
  32. sixFactorial= fourFactorial*(5*6);
  33.  
  34. permA= 123;
  35. permB= 132;
  36. permC= 312;
  37. permD= 321;
  38. permE= 231;
  39. permF= 213;
  40.  
  41. enumPerm3 : array [1..sixFactorial, 1..threeFactorial] of integer=
  42. (
  43. (permA,permB,permC,permD,permE,permF),
  44. (permA,permB,permC,permD,permF,permE),
  45. (permA,permB,permC,permF,permD,permE),
  46. (permA,permB,permF,permC,permD,permE),
  47. (permA,permF,permB,permC,permD,permE),
  48. (permF,permA,permB,permC,permD,permE),
  49. (permF,permA,permB,permC,permE,permD),
  50. (permA,permF,permB,permC,permE,permD),
  51. (permA,permB,permF,permC,permE,permD),
  52. (permA,permB,permC,permF,permE,permD),
  53. (permA,permB,permC,permE,permF,permD),
  54. (permA,permB,permC,permE,permD,permF),
  55. (permA,permB,permE,permC,permD,permF),
  56. (permA,permB,permE,permC,permF,permD),
  57. (permA,permB,permE,permF,permC,permD),
  58. (permA,permB,permF,permE,permC,permD),
  59. (permA,permF,permB,permE,permC,permD),
  60. (permF,permA,permB,permE,permC,permD),
  61. (permF,permA,permE,permB,permC,permD),
  62. (permA,permF,permE,permB,permC,permD),
  63. (permA,permE,permF,permB,permC,permD),
  64. (permA,permE,permB,permF,permC,permD),
  65. (permA,permE,permB,permC,permF,permD),
  66. (permA,permE,permB,permC,permD,permF),
  67. (permE,permA,permB,permC,permD,permF),
  68. (permE,permA,permB,permC,permF,permD),
  69. (permE,permA,permB,permF,permC,permD),
  70. (permE,permA,permF,permB,permC,permD),
  71. (permE,permF,permA,permB,permC,permD),
  72. (permF,permE,permA,permB,permC,permD),
  73. (permF,permE,permA,permB,permD,permC),
  74. (permE,permF,permA,permB,permD,permC),
  75. (permE,permA,permF,permB,permD,permC),
  76. (permE,permA,permB,permF,permD,permC),
  77. (permE,permA,permB,permD,permF,permC),
  78. (permE,permA,permB,permD,permC,permF),
  79. (permA,permE,permB,permD,permC,permF),
  80. (permA,permE,permB,permD,permF,permC),
  81. (permA,permE,permB,permF,permD,permC),
  82. (permA,permE,permF,permB,permD,permC),
  83. (permA,permF,permE,permB,permD,permC),
  84. (permF,permA,permE,permB,permD,permC),
  85. (permF,permA,permB,permE,permD,permC),
  86. (permA,permF,permB,permE,permD,permC),
  87. (permA,permB,permF,permE,permD,permC),
  88. (permA,permB,permE,permF,permD,permC),
  89. (permA,permB,permE,permD,permF,permC),
  90. (permA,permB,permE,permD,permC,permF),
  91. (permA,permB,permD,permE,permC,permF),
  92. (permA,permB,permD,permE,permF,permC),
  93. (permA,permB,permD,permF,permE,permC),
  94. (permA,permB,permF,permD,permE,permC),
  95. (permA,permF,permB,permD,permE,permC),
  96. (permF,permA,permB,permD,permE,permC),
  97. (permF,permA,permB,permD,permC,permE),
  98. (permA,permF,permB,permD,permC,permE),
  99. (permA,permB,permF,permD,permC,permE),
  100. (permA,permB,permD,permF,permC,permE),
  101. (permA,permB,permD,permC,permF,permE),
  102. (permA,permB,permD,permC,permE,permF),
  103. (permA,permD,permB,permC,permE,permF),
  104. (permA,permD,permB,permC,permF,permE),
  105. (permA,permD,permB,permF,permC,permE),
  106. (permA,permD,permF,permB,permC,permE),
  107. (permA,permF,permD,permB,permC,permE),
  108. (permF,permA,permD,permB,permC,permE),
  109. (permF,permA,permD,permB,permE,permC),
  110. (permA,permF,permD,permB,permE,permC),
  111. (permA,permD,permF,permB,permE,permC),
  112. (permA,permD,permB,permF,permE,permC),
  113. (permA,permD,permB,permE,permF,permC),
  114. (permA,permD,permB,permE,permC,permF),
  115. (permA,permD,permE,permB,permC,permF),
  116. (permA,permD,permE,permB,permF,permC),
  117. (permA,permD,permE,permF,permB,permC),
  118. (permA,permD,permF,permE,permB,permC),
  119. (permA,permF,permD,permE,permB,permC),
  120. (permF,permA,permD,permE,permB,permC),
  121. (permF,permA,permE,permD,permB,permC),
  122. (permA,permF,permE,permD,permB,permC),
  123. (permA,permE,permF,permD,permB,permC),
  124. (permA,permE,permD,permF,permB,permC),
  125. (permA,permE,permD,permB,permF,permC),
  126. (permA,permE,permD,permB,permC,permF),
  127. (permE,permA,permD,permB,permC,permF),
  128. (permE,permA,permD,permB,permF,permC),
  129. (permE,permA,permD,permF,permB,permC),
  130. (permE,permA,permF,permD,permB,permC),
  131. (permE,permF,permA,permD,permB,permC),
  132. (permF,permE,permA,permD,permB,permC),
  133. (permF,permE,permD,permA,permB,permC),
  134. (permE,permF,permD,permA,permB,permC),
  135. (permE,permD,permF,permA,permB,permC),
  136. (permE,permD,permA,permF,permB,permC),
  137. (permE,permD,permA,permB,permF,permC),
  138. (permE,permD,permA,permB,permC,permF),
  139. (permD,permE,permA,permB,permC,permF),
  140. (permD,permE,permA,permB,permF,permC),
  141. (permD,permE,permA,permF,permB,permC),
  142. (permD,permE,permF,permA,permB,permC),
  143. (permD,permF,permE,permA,permB,permC),
  144. (permF,permD,permE,permA,permB,permC),
  145. (permF,permD,permA,permE,permB,permC),
  146. (permD,permF,permA,permE,permB,permC),
  147. (permD,permA,permF,permE,permB,permC),
  148. (permD,permA,permE,permF,permB,permC),
  149. (permD,permA,permE,permB,permF,permC),
  150. (permD,permA,permE,permB,permC,permF),
  151. (permD,permA,permB,permE,permC,permF),
  152. (permD,permA,permB,permE,permF,permC),
  153. (permD,permA,permB,permF,permE,permC),
  154. (permD,permA,permF,permB,permE,permC),
  155. (permD,permF,permA,permB,permE,permC),
  156. (permF,permD,permA,permB,permE,permC),
  157. (permF,permD,permA,permB,permC,permE),
  158. (permD,permF,permA,permB,permC,permE),
  159. (permD,permA,permF,permB,permC,permE),
  160. (permD,permA,permB,permF,permC,permE),
  161. (permD,permA,permB,permC,permF,permE),
  162. (permD,permA,permB,permC,permE,permF),
  163. (permD,permA,permC,permB,permE,permF),
  164. (permD,permA,permC,permB,permF,permE),
  165. (permD,permA,permC,permF,permB,permE),
  166. (permD,permA,permF,permC,permB,permE),
  167. (permD,permF,permA,permC,permB,permE),
  168. (permF,permD,permA,permC,permB,permE),
  169. (permF,permD,permA,permC,permE,permB),
  170. (permD,permF,permA,permC,permE,permB),
  171. (permD,permA,permF,permC,permE,permB),
  172. (permD,permA,permC,permF,permE,permB),
  173. (permD,permA,permC,permE,permF,permB),
  174. (permD,permA,permC,permE,permB,permF),
  175. (permD,permA,permE,permC,permB,permF),
  176. (permD,permA,permE,permC,permF,permB),
  177. (permD,permA,permE,permF,permC,permB),
  178. (permD,permA,permF,permE,permC,permB),
  179. (permD,permF,permA,permE,permC,permB),
  180. (permF,permD,permA,permE,permC,permB),
  181. (permF,permD,permE,permA,permC,permB),
  182. (permD,permF,permE,permA,permC,permB),
  183. (permD,permE,permF,permA,permC,permB),
  184. (permD,permE,permA,permF,permC,permB),
  185. (permD,permE,permA,permC,permF,permB),
  186. (permD,permE,permA,permC,permB,permF),
  187. (permE,permD,permA,permC,permB,permF),
  188. (permE,permD,permA,permC,permF,permB),
  189. (permE,permD,permA,permF,permC,permB),
  190. (permE,permD,permF,permA,permC,permB),
  191. (permE,permF,permD,permA,permC,permB),
  192. (permF,permE,permD,permA,permC,permB),
  193. (permF,permE,permA,permD,permC,permB),
  194. (permE,permF,permA,permD,permC,permB),
  195. (permE,permA,permF,permD,permC,permB),
  196. (permE,permA,permD,permF,permC,permB),
  197. (permE,permA,permD,permC,permF,permB),
  198. (permE,permA,permD,permC,permB,permF),
  199. (permA,permE,permD,permC,permB,permF),
  200. (permA,permE,permD,permC,permF,permB),
  201. (permA,permE,permD,permF,permC,permB),
  202. (permA,permE,permF,permD,permC,permB),
  203. (permA,permF,permE,permD,permC,permB),
  204. (permF,permA,permE,permD,permC,permB),
  205. (permF,permA,permD,permE,permC,permB),
  206. (permA,permF,permD,permE,permC,permB),
  207. (permA,permD,permF,permE,permC,permB),
  208. (permA,permD,permE,permF,permC,permB),
  209. (permA,permD,permE,permC,permF,permB),
  210. (permA,permD,permE,permC,permB,permF),
  211. (permA,permD,permC,permE,permB,permF),
  212. (permA,permD,permC,permE,permF,permB),
  213. (permA,permD,permC,permF,permE,permB),
  214. (permA,permD,permF,permC,permE,permB),
  215. (permA,permF,permD,permC,permE,permB),
  216. (permF,permA,permD,permC,permE,permB),
  217. (permF,permA,permD,permC,permB,permE),
  218. (permA,permF,permD,permC,permB,permE),
  219. (permA,permD,permF,permC,permB,permE),
  220. (permA,permD,permC,permF,permB,permE),
  221. (permA,permD,permC,permB,permF,permE),
  222. (permA,permD,permC,permB,permE,permF),
  223. (permA,permC,permD,permB,permE,permF),
  224. (permA,permC,permD,permB,permF,permE),
  225. (permA,permC,permD,permF,permB,permE),
  226. (permA,permC,permF,permD,permB,permE),
  227. (permA,permF,permC,permD,permB,permE),
  228. (permF,permA,permC,permD,permB,permE),
  229. (permF,permA,permC,permD,permE,permB),
  230. (permA,permF,permC,permD,permE,permB),
  231. (permA,permC,permF,permD,permE,permB),
  232. (permA,permC,permD,permF,permE,permB),
  233. (permA,permC,permD,permE,permF,permB),
  234. (permA,permC,permD,permE,permB,permF),
  235. (permA,permC,permE,permD,permB,permF),
  236. (permA,permC,permE,permD,permF,permB),
  237. (permA,permC,permE,permF,permD,permB),
  238. (permA,permC,permF,permE,permD,permB),
  239. (permA,permF,permC,permE,permD,permB),
  240. (permF,permA,permC,permE,permD,permB),
  241. (permF,permA,permE,permC,permD,permB),
  242. (permA,permF,permE,permC,permD,permB),
  243. (permA,permE,permF,permC,permD,permB),
  244. (permA,permE,permC,permF,permD,permB),
  245. (permA,permE,permC,permD,permF,permB),
  246. (permA,permE,permC,permD,permB,permF),
  247. (permE,permA,permC,permD,permB,permF),
  248. (permE,permA,permC,permD,permF,permB),
  249. (permE,permA,permC,permF,permD,permB),
  250. (permE,permA,permF,permC,permD,permB),
  251. (permE,permF,permA,permC,permD,permB),
  252. (permF,permE,permA,permC,permD,permB),
  253. (permF,permE,permA,permC,permB,permD),
  254. (permE,permF,permA,permC,permB,permD),
  255. (permE,permA,permF,permC,permB,permD),
  256. (permE,permA,permC,permF,permB,permD),
  257. (permE,permA,permC,permB,permF,permD),
  258. (permE,permA,permC,permB,permD,permF),
  259. (permA,permE,permC,permB,permD,permF),
  260. (permA,permE,permC,permB,permF,permD),
  261. (permA,permE,permC,permF,permB,permD),
  262. (permA,permE,permF,permC,permB,permD),
  263. (permA,permF,permE,permC,permB,permD),
  264. (permF,permA,permE,permC,permB,permD),
  265. (permF,permA,permC,permE,permB,permD),
  266. (permA,permF,permC,permE,permB,permD),
  267. (permA,permC,permF,permE,permB,permD),
  268. (permA,permC,permE,permF,permB,permD),
  269. (permA,permC,permE,permB,permF,permD),
  270. (permA,permC,permE,permB,permD,permF),
  271. (permA,permC,permB,permE,permD,permF),
  272. (permA,permC,permB,permE,permF,permD),
  273. (permA,permC,permB,permF,permE,permD),
  274. (permA,permC,permF,permB,permE,permD),
  275. (permA,permF,permC,permB,permE,permD),
  276. (permF,permA,permC,permB,permE,permD),
  277. (permF,permA,permC,permB,permD,permE),
  278. (permA,permF,permC,permB,permD,permE),
  279. (permA,permC,permF,permB,permD,permE),
  280. (permA,permC,permB,permF,permD,permE),
  281. (permA,permC,permB,permD,permF,permE),
  282. (permA,permC,permB,permD,permE,permF),
  283. (permC,permA,permB,permD,permE,permF),
  284. (permC,permA,permB,permD,permF,permE),
  285. (permC,permA,permB,permF,permD,permE),
  286. (permC,permA,permF,permB,permD,permE),
  287. (permC,permF,permA,permB,permD,permE),
  288. (permF,permC,permA,permB,permD,permE),
  289. (permF,permC,permA,permB,permE,permD),
  290. (permC,permF,permA,permB,permE,permD),
  291. (permC,permA,permF,permB,permE,permD),
  292. (permC,permA,permB,permF,permE,permD),
  293. (permC,permA,permB,permE,permF,permD),
  294. (permC,permA,permB,permE,permD,permF),
  295. (permC,permA,permE,permB,permD,permF),
  296. (permC,permA,permE,permB,permF,permD),
  297. (permC,permA,permE,permF,permB,permD),
  298. (permC,permA,permF,permE,permB,permD),
  299. (permC,permF,permA,permE,permB,permD),
  300. (permF,permC,permA,permE,permB,permD),
  301. (permF,permC,permE,permA,permB,permD),
  302. (permC,permF,permE,permA,permB,permD),
  303. (permC,permE,permF,permA,permB,permD),
  304. (permC,permE,permA,permF,permB,permD),
  305. (permC,permE,permA,permB,permF,permD),
  306. (permC,permE,permA,permB,permD,permF),
  307. (permE,permC,permA,permB,permD,permF),
  308. (permE,permC,permA,permB,permF,permD),
  309. (permE,permC,permA,permF,permB,permD),
  310. (permE,permC,permF,permA,permB,permD),
  311. (permE,permF,permC,permA,permB,permD),
  312. (permF,permE,permC,permA,permB,permD),
  313. (permF,permE,permC,permA,permD,permB),
  314. (permE,permF,permC,permA,permD,permB),
  315. (permE,permC,permF,permA,permD,permB),
  316. (permE,permC,permA,permF,permD,permB),
  317. (permE,permC,permA,permD,permF,permB),
  318. (permE,permC,permA,permD,permB,permF),
  319. (permC,permE,permA,permD,permB,permF),
  320. (permC,permE,permA,permD,permF,permB),
  321. (permC,permE,permA,permF,permD,permB),
  322. (permC,permE,permF,permA,permD,permB),
  323. (permC,permF,permE,permA,permD,permB),
  324. (permF,permC,permE,permA,permD,permB),
  325. (permF,permC,permA,permE,permD,permB),
  326. (permC,permF,permA,permE,permD,permB),
  327. (permC,permA,permF,permE,permD,permB),
  328. (permC,permA,permE,permF,permD,permB),
  329. (permC,permA,permE,permD,permF,permB),
  330. (permC,permA,permE,permD,permB,permF),
  331. (permC,permA,permD,permE,permB,permF),
  332. (permC,permA,permD,permE,permF,permB),
  333. (permC,permA,permD,permF,permE,permB),
  334. (permC,permA,permF,permD,permE,permB),
  335. (permC,permF,permA,permD,permE,permB),
  336. (permF,permC,permA,permD,permE,permB),
  337. (permF,permC,permA,permD,permB,permE),
  338. (permC,permF,permA,permD,permB,permE),
  339. (permC,permA,permF,permD,permB,permE),
  340. (permC,permA,permD,permF,permB,permE),
  341. (permC,permA,permD,permB,permF,permE),
  342. (permC,permA,permD,permB,permE,permF),
  343. (permC,permD,permA,permB,permE,permF),
  344. (permC,permD,permA,permB,permF,permE),
  345. (permC,permD,permA,permF,permB,permE),
  346. (permC,permD,permF,permA,permB,permE),
  347. (permC,permF,permD,permA,permB,permE),
  348. (permF,permC,permD,permA,permB,permE),
  349. (permF,permC,permD,permA,permE,permB),
  350. (permC,permF,permD,permA,permE,permB),
  351. (permC,permD,permF,permA,permE,permB),
  352. (permC,permD,permA,permF,permE,permB),
  353. (permC,permD,permA,permE,permF,permB),
  354. (permC,permD,permA,permE,permB,permF),
  355. (permC,permD,permE,permA,permB,permF),
  356. (permC,permD,permE,permA,permF,permB),
  357. (permC,permD,permE,permF,permA,permB),
  358. (permC,permD,permF,permE,permA,permB),
  359. (permC,permF,permD,permE,permA,permB),
  360. (permF,permC,permD,permE,permA,permB),
  361. (permF,permC,permE,permD,permA,permB),
  362. (permC,permF,permE,permD,permA,permB),
  363. (permC,permE,permF,permD,permA,permB),
  364. (permC,permE,permD,permF,permA,permB),
  365. (permC,permE,permD,permA,permF,permB),
  366. (permC,permE,permD,permA,permB,permF),
  367. (permE,permC,permD,permA,permB,permF),
  368. (permE,permC,permD,permA,permF,permB),
  369. (permE,permC,permD,permF,permA,permB),
  370. (permE,permC,permF,permD,permA,permB),
  371. (permE,permF,permC,permD,permA,permB),
  372. (permF,permE,permC,permD,permA,permB),
  373. (permF,permE,permD,permC,permA,permB),
  374. (permE,permF,permD,permC,permA,permB),
  375. (permE,permD,permF,permC,permA,permB),
  376. (permE,permD,permC,permF,permA,permB),
  377. (permE,permD,permC,permA,permF,permB),
  378. (permE,permD,permC,permA,permB,permF),
  379. (permD,permE,permC,permA,permB,permF),
  380. (permD,permE,permC,permA,permF,permB),
  381. (permD,permE,permC,permF,permA,permB),
  382. (permD,permE,permF,permC,permA,permB),
  383. (permD,permF,permE,permC,permA,permB),
  384. (permF,permD,permE,permC,permA,permB),
  385. (permF,permD,permC,permE,permA,permB),
  386. (permD,permF,permC,permE,permA,permB),
  387. (permD,permC,permF,permE,permA,permB),
  388. (permD,permC,permE,permF,permA,permB),
  389. (permD,permC,permE,permA,permF,permB),
  390. (permD,permC,permE,permA,permB,permF),
  391. (permD,permC,permA,permE,permB,permF),
  392. (permD,permC,permA,permE,permF,permB),
  393. (permD,permC,permA,permF,permE,permB),
  394. (permD,permC,permF,permA,permE,permB),
  395. (permD,permF,permC,permA,permE,permB),
  396. (permF,permD,permC,permA,permE,permB),
  397. (permF,permD,permC,permA,permB,permE),
  398. (permD,permF,permC,permA,permB,permE),
  399. (permD,permC,permF,permA,permB,permE),
  400. (permD,permC,permA,permF,permB,permE),
  401. (permD,permC,permA,permB,permF,permE),
  402. (permD,permC,permA,permB,permE,permF),
  403. (permD,permC,permB,permA,permE,permF),
  404. (permD,permC,permB,permA,permF,permE),
  405. (permD,permC,permB,permF,permA,permE),
  406. (permD,permC,permF,permB,permA,permE),
  407. (permD,permF,permC,permB,permA,permE),
  408. (permF,permD,permC,permB,permA,permE),
  409. (permF,permD,permC,permB,permE,permA),
  410. (permD,permF,permC,permB,permE,permA),
  411. (permD,permC,permF,permB,permE,permA),
  412. (permD,permC,permB,permF,permE,permA),
  413. (permD,permC,permB,permE,permF,permA),
  414. (permD,permC,permB,permE,permA,permF),
  415. (permD,permC,permE,permB,permA,permF),
  416. (permD,permC,permE,permB,permF,permA),
  417. (permD,permC,permE,permF,permB,permA),
  418. (permD,permC,permF,permE,permB,permA),
  419. (permD,permF,permC,permE,permB,permA),
  420. (permF,permD,permC,permE,permB,permA),
  421. (permF,permD,permE,permC,permB,permA),
  422. (permD,permF,permE,permC,permB,permA),
  423. (permD,permE,permF,permC,permB,permA),
  424. (permD,permE,permC,permF,permB,permA),
  425. (permD,permE,permC,permB,permF,permA),
  426. (permD,permE,permC,permB,permA,permF),
  427. (permE,permD,permC,permB,permA,permF),
  428. (permE,permD,permC,permB,permF,permA),
  429. (permE,permD,permC,permF,permB,permA),
  430. (permE,permD,permF,permC,permB,permA),
  431. (permE,permF,permD,permC,permB,permA),
  432. (permF,permE,permD,permC,permB,permA),
  433. (permF,permE,permC,permD,permB,permA),
  434. (permE,permF,permC,permD,permB,permA),
  435. (permE,permC,permF,permD,permB,permA),
  436. (permE,permC,permD,permF,permB,permA),
  437. (permE,permC,permD,permB,permF,permA),
  438. (permE,permC,permD,permB,permA,permF),
  439. (permC,permE,permD,permB,permA,permF),
  440. (permC,permE,permD,permB,permF,permA),
  441. (permC,permE,permD,permF,permB,permA),
  442. (permC,permE,permF,permD,permB,permA),
  443. (permC,permF,permE,permD,permB,permA),
  444. (permF,permC,permE,permD,permB,permA),
  445. (permF,permC,permD,permE,permB,permA),
  446. (permC,permF,permD,permE,permB,permA),
  447. (permC,permD,permF,permE,permB,permA),
  448. (permC,permD,permE,permF,permB,permA),
  449. (permC,permD,permE,permB,permF,permA),
  450. (permC,permD,permE,permB,permA,permF),
  451. (permC,permD,permB,permE,permA,permF),
  452. (permC,permD,permB,permE,permF,permA),
  453. (permC,permD,permB,permF,permE,permA),
  454. (permC,permD,permF,permB,permE,permA),
  455. (permC,permF,permD,permB,permE,permA),
  456. (permF,permC,permD,permB,permE,permA),
  457. (permF,permC,permD,permB,permA,permE),
  458. (permC,permF,permD,permB,permA,permE),
  459. (permC,permD,permF,permB,permA,permE),
  460. (permC,permD,permB,permF,permA,permE),
  461. (permC,permD,permB,permA,permF,permE),
  462. (permC,permD,permB,permA,permE,permF),
  463. (permC,permB,permD,permA,permE,permF),
  464. (permC,permB,permD,permA,permF,permE),
  465. (permC,permB,permD,permF,permA,permE),
  466. (permC,permB,permF,permD,permA,permE),
  467. (permC,permF,permB,permD,permA,permE),
  468. (permF,permC,permB,permD,permA,permE),
  469. (permF,permC,permB,permD,permE,permA),
  470. (permC,permF,permB,permD,permE,permA),
  471. (permC,permB,permF,permD,permE,permA),
  472. (permC,permB,permD,permF,permE,permA),
  473. (permC,permB,permD,permE,permF,permA),
  474. (permC,permB,permD,permE,permA,permF),
  475. (permC,permB,permE,permD,permA,permF),
  476. (permC,permB,permE,permD,permF,permA),
  477. (permC,permB,permE,permF,permD,permA),
  478. (permC,permB,permF,permE,permD,permA),
  479. (permC,permF,permB,permE,permD,permA),
  480. (permF,permC,permB,permE,permD,permA),
  481. (permF,permC,permE,permB,permD,permA),
  482. (permC,permF,permE,permB,permD,permA),
  483. (permC,permE,permF,permB,permD,permA),
  484. (permC,permE,permB,permF,permD,permA),
  485. (permC,permE,permB,permD,permF,permA),
  486. (permC,permE,permB,permD,permA,permF),
  487. (permE,permC,permB,permD,permA,permF),
  488. (permE,permC,permB,permD,permF,permA),
  489. (permE,permC,permB,permF,permD,permA),
  490. (permE,permC,permF,permB,permD,permA),
  491. (permE,permF,permC,permB,permD,permA),
  492. (permF,permE,permC,permB,permD,permA),
  493. (permF,permE,permC,permB,permA,permD),
  494. (permE,permF,permC,permB,permA,permD),
  495. (permE,permC,permF,permB,permA,permD),
  496. (permE,permC,permB,permF,permA,permD),
  497. (permE,permC,permB,permA,permF,permD),
  498. (permE,permC,permB,permA,permD,permF),
  499. (permC,permE,permB,permA,permD,permF),
  500. (permC,permE,permB,permA,permF,permD),
  501. (permC,permE,permB,permF,permA,permD),
  502. (permC,permE,permF,permB,permA,permD),
  503. (permC,permF,permE,permB,permA,permD),
  504. (permF,permC,permE,permB,permA,permD),
  505. (permF,permC,permB,permE,permA,permD),
  506. (permC,permF,permB,permE,permA,permD),
  507. (permC,permB,permF,permE,permA,permD),
  508. (permC,permB,permE,permF,permA,permD),
  509. (permC,permB,permE,permA,permF,permD),
  510. (permC,permB,permE,permA,permD,permF),
  511. (permC,permB,permA,permE,permD,permF),
  512. (permC,permB,permA,permE,permF,permD),
  513. (permC,permB,permA,permF,permE,permD),
  514. (permC,permB,permF,permA,permE,permD),
  515. (permC,permF,permB,permA,permE,permD),
  516. (permF,permC,permB,permA,permE,permD),
  517. (permF,permC,permB,permA,permD,permE),
  518. (permC,permF,permB,permA,permD,permE),
  519. (permC,permB,permF,permA,permD,permE),
  520. (permC,permB,permA,permF,permD,permE),
  521. (permC,permB,permA,permD,permF,permE),
  522. (permC,permB,permA,permD,permE,permF),
  523. (permB,permC,permA,permD,permE,permF),
  524. (permB,permC,permA,permD,permF,permE),
  525. (permB,permC,permA,permF,permD,permE),
  526. (permB,permC,permF,permA,permD,permE),
  527. (permB,permF,permC,permA,permD,permE),
  528. (permF,permB,permC,permA,permD,permE),
  529. (permF,permB,permC,permA,permE,permD),
  530. (permB,permF,permC,permA,permE,permD),
  531. (permB,permC,permF,permA,permE,permD),
  532. (permB,permC,permA,permF,permE,permD),
  533. (permB,permC,permA,permE,permF,permD),
  534. (permB,permC,permA,permE,permD,permF),
  535. (permB,permC,permE,permA,permD,permF),
  536. (permB,permC,permE,permA,permF,permD),
  537. (permB,permC,permE,permF,permA,permD),
  538. (permB,permC,permF,permE,permA,permD),
  539. (permB,permF,permC,permE,permA,permD),
  540. (permF,permB,permC,permE,permA,permD),
  541. (permF,permB,permE,permC,permA,permD),
  542. (permB,permF,permE,permC,permA,permD),
  543. (permB,permE,permF,permC,permA,permD),
  544. (permB,permE,permC,permF,permA,permD),
  545. (permB,permE,permC,permA,permF,permD),
  546. (permB,permE,permC,permA,permD,permF),
  547. (permE,permB,permC,permA,permD,permF),
  548. (permE,permB,permC,permA,permF,permD),
  549. (permE,permB,permC,permF,permA,permD),
  550. (permE,permB,permF,permC,permA,permD),
  551. (permE,permF,permB,permC,permA,permD),
  552. (permF,permE,permB,permC,permA,permD),
  553. (permF,permE,permB,permC,permD,permA),
  554. (permE,permF,permB,permC,permD,permA),
  555. (permE,permB,permF,permC,permD,permA),
  556. (permE,permB,permC,permF,permD,permA),
  557. (permE,permB,permC,permD,permF,permA),
  558. (permE,permB,permC,permD,permA,permF),
  559. (permB,permE,permC,permD,permA,permF),
  560. (permB,permE,permC,permD,permF,permA),
  561. (permB,permE,permC,permF,permD,permA),
  562. (permB,permE,permF,permC,permD,permA),
  563. (permB,permF,permE,permC,permD,permA),
  564. (permF,permB,permE,permC,permD,permA),
  565. (permF,permB,permC,permE,permD,permA),
  566. (permB,permF,permC,permE,permD,permA),
  567. (permB,permC,permF,permE,permD,permA),
  568. (permB,permC,permE,permF,permD,permA),
  569. (permB,permC,permE,permD,permF,permA),
  570. (permB,permC,permE,permD,permA,permF),
  571. (permB,permC,permD,permE,permA,permF),
  572. (permB,permC,permD,permE,permF,permA),
  573. (permB,permC,permD,permF,permE,permA),
  574. (permB,permC,permF,permD,permE,permA),
  575. (permB,permF,permC,permD,permE,permA),
  576. (permF,permB,permC,permD,permE,permA),
  577. (permF,permB,permC,permD,permA,permE),
  578. (permB,permF,permC,permD,permA,permE),
  579. (permB,permC,permF,permD,permA,permE),
  580. (permB,permC,permD,permF,permA,permE),
  581. (permB,permC,permD,permA,permF,permE),
  582. (permB,permC,permD,permA,permE,permF),
  583. (permB,permD,permC,permA,permE,permF),
  584. (permB,permD,permC,permA,permF,permE),
  585. (permB,permD,permC,permF,permA,permE),
  586. (permB,permD,permF,permC,permA,permE),
  587. (permB,permF,permD,permC,permA,permE),
  588. (permF,permB,permD,permC,permA,permE),
  589. (permF,permB,permD,permC,permE,permA),
  590. (permB,permF,permD,permC,permE,permA),
  591. (permB,permD,permF,permC,permE,permA),
  592. (permB,permD,permC,permF,permE,permA),
  593. (permB,permD,permC,permE,permF,permA),
  594. (permB,permD,permC,permE,permA,permF),
  595. (permB,permD,permE,permC,permA,permF),
  596. (permB,permD,permE,permC,permF,permA),
  597. (permB,permD,permE,permF,permC,permA),
  598. (permB,permD,permF,permE,permC,permA),
  599. (permB,permF,permD,permE,permC,permA),
  600. (permF,permB,permD,permE,permC,permA),
  601. (permF,permB,permE,permD,permC,permA),
  602. (permB,permF,permE,permD,permC,permA),
  603. (permB,permE,permF,permD,permC,permA),
  604. (permB,permE,permD,permF,permC,permA),
  605. (permB,permE,permD,permC,permF,permA),
  606. (permB,permE,permD,permC,permA,permF),
  607. (permE,permB,permD,permC,permA,permF),
  608. (permE,permB,permD,permC,permF,permA),
  609. (permE,permB,permD,permF,permC,permA),
  610. (permE,permB,permF,permD,permC,permA),
  611. (permE,permF,permB,permD,permC,permA),
  612. (permF,permE,permB,permD,permC,permA),
  613. (permF,permE,permD,permB,permC,permA),
  614. (permE,permF,permD,permB,permC,permA),
  615. (permE,permD,permF,permB,permC,permA),
  616. (permE,permD,permB,permF,permC,permA),
  617. (permE,permD,permB,permC,permF,permA),
  618. (permE,permD,permB,permC,permA,permF),
  619. (permD,permE,permB,permC,permA,permF),
  620. (permD,permE,permB,permC,permF,permA),
  621. (permD,permE,permB,permF,permC,permA),
  622. (permD,permE,permF,permB,permC,permA),
  623. (permD,permF,permE,permB,permC,permA),
  624. (permF,permD,permE,permB,permC,permA),
  625. (permF,permD,permB,permE,permC,permA),
  626. (permD,permF,permB,permE,permC,permA),
  627. (permD,permB,permF,permE,permC,permA),
  628. (permD,permB,permE,permF,permC,permA),
  629. (permD,permB,permE,permC,permF,permA),
  630. (permD,permB,permE,permC,permA,permF),
  631. (permD,permB,permC,permE,permA,permF),
  632. (permD,permB,permC,permE,permF,permA),
  633. (permD,permB,permC,permF,permE,permA),
  634. (permD,permB,permF,permC,permE,permA),
  635. (permD,permF,permB,permC,permE,permA),
  636. (permF,permD,permB,permC,permE,permA),
  637. (permF,permD,permB,permC,permA,permE),
  638. (permD,permF,permB,permC,permA,permE),
  639. (permD,permB,permF,permC,permA,permE),
  640. (permD,permB,permC,permF,permA,permE),
  641. (permD,permB,permC,permA,permF,permE),
  642. (permD,permB,permC,permA,permE,permF),
  643. (permD,permB,permA,permC,permE,permF),
  644. (permD,permB,permA,permC,permF,permE),
  645. (permD,permB,permA,permF,permC,permE),
  646. (permD,permB,permF,permA,permC,permE),
  647. (permD,permF,permB,permA,permC,permE),
  648. (permF,permD,permB,permA,permC,permE),
  649. (permF,permD,permB,permA,permE,permC),
  650. (permD,permF,permB,permA,permE,permC),
  651. (permD,permB,permF,permA,permE,permC),
  652. (permD,permB,permA,permF,permE,permC),
  653. (permD,permB,permA,permE,permF,permC),
  654. (permD,permB,permA,permE,permC,permF),
  655. (permD,permB,permE,permA,permC,permF),
  656. (permD,permB,permE,permA,permF,permC),
  657. (permD,permB,permE,permF,permA,permC),
  658. (permD,permB,permF,permE,permA,permC),
  659. (permD,permF,permB,permE,permA,permC),
  660. (permF,permD,permB,permE,permA,permC),
  661. (permF,permD,permE,permB,permA,permC),
  662. (permD,permF,permE,permB,permA,permC),
  663. (permD,permE,permF,permB,permA,permC),
  664. (permD,permE,permB,permF,permA,permC),
  665. (permD,permE,permB,permA,permF,permC),
  666. (permD,permE,permB,permA,permC,permF),
  667. (permE,permD,permB,permA,permC,permF),
  668. (permE,permD,permB,permA,permF,permC),
  669. (permE,permD,permB,permF,permA,permC),
  670. (permE,permD,permF,permB,permA,permC),
  671. (permE,permF,permD,permB,permA,permC),
  672. (permF,permE,permD,permB,permA,permC),
  673. (permF,permE,permB,permD,permA,permC),
  674. (permE,permF,permB,permD,permA,permC),
  675. (permE,permB,permF,permD,permA,permC),
  676. (permE,permB,permD,permF,permA,permC),
  677. (permE,permB,permD,permA,permF,permC),
  678. (permE,permB,permD,permA,permC,permF),
  679. (permB,permE,permD,permA,permC,permF),
  680. (permB,permE,permD,permA,permF,permC),
  681. (permB,permE,permD,permF,permA,permC),
  682. (permB,permE,permF,permD,permA,permC),
  683. (permB,permF,permE,permD,permA,permC),
  684. (permF,permB,permE,permD,permA,permC),
  685. (permF,permB,permD,permE,permA,permC),
  686. (permB,permF,permD,permE,permA,permC),
  687. (permB,permD,permF,permE,permA,permC),
  688. (permB,permD,permE,permF,permA,permC),
  689. (permB,permD,permE,permA,permF,permC),
  690. (permB,permD,permE,permA,permC,permF),
  691. (permB,permD,permA,permE,permC,permF),
  692. (permB,permD,permA,permE,permF,permC),
  693. (permB,permD,permA,permF,permE,permC),
  694. (permB,permD,permF,permA,permE,permC),
  695. (permB,permF,permD,permA,permE,permC),
  696. (permF,permB,permD,permA,permE,permC),
  697. (permF,permB,permD,permA,permC,permE),
  698. (permB,permF,permD,permA,permC,permE),
  699. (permB,permD,permF,permA,permC,permE),
  700. (permB,permD,permA,permF,permC,permE),
  701. (permB,permD,permA,permC,permF,permE),
  702. (permB,permD,permA,permC,permE,permF),
  703. (permB,permA,permD,permC,permE,permF),
  704. (permB,permA,permD,permC,permF,permE),
  705. (permB,permA,permD,permF,permC,permE),
  706. (permB,permA,permF,permD,permC,permE),
  707. (permB,permF,permA,permD,permC,permE),
  708. (permF,permB,permA,permD,permC,permE),
  709. (permF,permB,permA,permD,permE,permC),
  710. (permB,permF,permA,permD,permE,permC),
  711. (permB,permA,permF,permD,permE,permC),
  712. (permB,permA,permD,permF,permE,permC),
  713. (permB,permA,permD,permE,permF,permC),
  714. (permB,permA,permD,permE,permC,permF),
  715. (permB,permA,permE,permD,permC,permF),
  716. (permB,permA,permE,permD,permF,permC),
  717. (permB,permA,permE,permF,permD,permC),
  718. (permB,permA,permF,permE,permD,permC),
  719. (permB,permF,permA,permE,permD,permC),
  720. (permF,permB,permA,permE,permD,permC),
  721. (permF,permB,permE,permA,permD,permC),
  722. (permB,permF,permE,permA,permD,permC),
  723. (permB,permE,permF,permA,permD,permC),
  724. (permB,permE,permA,permF,permD,permC),
  725. (permB,permE,permA,permD,permF,permC),
  726. (permB,permE,permA,permD,permC,permF),
  727. (permE,permB,permA,permD,permC,permF),
  728. (permE,permB,permA,permD,permF,permC),
  729. (permE,permB,permA,permF,permD,permC),
  730. (permE,permB,permF,permA,permD,permC),
  731. (permE,permF,permB,permA,permD,permC),
  732. (permF,permE,permB,permA,permD,permC),
  733. (permF,permE,permB,permA,permC,permD),
  734. (permE,permF,permB,permA,permC,permD),
  735. (permE,permB,permF,permA,permC,permD),
  736. (permE,permB,permA,permF,permC,permD),
  737. (permE,permB,permA,permC,permF,permD),
  738. (permE,permB,permA,permC,permD,permF),
  739. (permB,permE,permA,permC,permD,permF),
  740. (permB,permE,permA,permC,permF,permD),
  741. (permB,permE,permA,permF,permC,permD),
  742. (permB,permE,permF,permA,permC,permD),
  743. (permB,permF,permE,permA,permC,permD),
  744. (permF,permB,permE,permA,permC,permD),
  745. (permF,permB,permA,permE,permC,permD),
  746. (permB,permF,permA,permE,permC,permD),
  747. (permB,permA,permF,permE,permC,permD),
  748. (permB,permA,permE,permF,permC,permD),
  749. (permB,permA,permE,permC,permF,permD),
  750. (permB,permA,permE,permC,permD,permF),
  751. (permB,permA,permC,permE,permD,permF),
  752. (permB,permA,permC,permE,permF,permD),
  753. (permB,permA,permC,permF,permE,permD),
  754. (permB,permA,permF,permC,permE,permD),
  755. (permB,permF,permA,permC,permE,permD),
  756. (permF,permB,permA,permC,permE,permD),
  757. (permF,permB,permA,permC,permD,permE),
  758. (permB,permF,permA,permC,permD,permE),
  759. (permB,permA,permF,permC,permD,permE),
  760. (permB,permA,permC,permF,permD,permE),
  761. (permB,permA,permC,permD,permF,permE),
  762. (permB,permA,permC,permD,permE,permF)
  763. );
  764.  
  765. (*
  766.  
  767.   The reason of incompleteness for this program, is that we
  768.   are unable to write a program such that it test all the possible
  769.   enumerations when running... (this is, for general cases)
  770.  
  771.   The first three naturals are easy because 3!= 6, and 6!= 720,
  772.   but with the first four naturals arises a technical challenge
  773.   since 4!= 24, and 24! is comparable to floor(Avogadro's number).
  774.  
  775.   Try imagine such quantity of matrices pending for the test!!!
  776.  
  777.   So for the four first natural numbers, instead of trying it, the
  778.   author shows only two among the "four-double-factorial" possible
  779.   different ways of sorting the permutations for the first four natural
  780.   numbers:
  781.  
  782.   i)  The given by the output of the SJT algorithm application.
  783.   ii) The given by a numerical sorting applied to (i).
  784.  
  785. *)
  786.  
  787.   PermforFirstFoutNaturs_SJT: array [1..24] of longint = (
  788.  
  789.   (*
  790.  
  791.   Hint: SJT executed manually for the previous cases of such algorithm .
  792.  
  793.        (For details, please see A207324)
  794.  
  795.   1;
  796.  
  797.   12
  798.   21;
  799.  
  800.   123
  801.   132
  802.   312
  803.   321
  804.   231
  805.   213;
  806.  
  807.   *)
  808.  
  809.   1234,
  810.   1243,
  811.   1423,
  812.   4123,
  813.   4132,
  814.   1432,
  815.   1342,
  816.   1324,
  817.   3124,
  818.   3142,
  819.   3412,
  820.   4312,
  821.   4321,
  822.   3421,
  823.   3241,
  824.   3214,
  825.   2314,
  826.   2341,
  827.   2431,
  828.   4231,
  829.   4213,
  830.   2413,
  831.   2143,
  832.   2134
  833.   );
  834.  
  835.   PermforFirstFoutNaturs_NUM: array [1..24] of longint = (
  836.   1234,
  837.   1243,
  838.   1324,
  839.   1342,
  840.   1423,
  841.   1432,
  842.   2134,
  843.   2143,
  844.   2314,
  845.   2341,
  846.   2413,
  847.   2431,
  848.   3124,
  849.   3142,
  850.   3214,
  851.   3241,
  852.   3412,
  853.   3421,
  854.   4123,
  855.   4132,
  856.   4213,
  857.   4231,
  858.   4312,
  859.   4321
  860.   );
  861.  
  862. var
  863.  
  864. i,
  865. j,
  866. k,
  867. p,
  868. q,
  869. divisor: integer;
  870. diffMatrixAccordingToEnumWays : array [1..sixFactorial, 1..threeFactorial, 1..threeFactorial] of integer;
  871. trueTableEachEnum: array [1..sixFactorial] of boolean;
  872.  
  873. squaredMatrix_SJT,
  874. squaredMatrix_NUM : array [1..fourFactorial, 1..fourFactorial] of longint;
  875. satisfy_SJT,
  876. satisfy_NUM : boolean;
  877.  
  878.  
  879. conjecture : boolean;
  880.  
  881. BEGIN
  882.   writeln('');
  883.   writeln('Testing the Cano'+#39+'s conjecture about congruency modulo (10-1) for pemutations...');
  884.   writeln('(In a numerical, empirical, and non exhaustive way!!)');
  885.   writeln('');
  886.   writeln('THIS PROGRAM WAS DESIGNED ONLY FOR SHOW EVIDENCE');
  887.   writeln('ABOUT THE PLAUSIBILITY AND CERTAINTY OF THE CONJECTURE.');
  888.   writeln('');
  889.   for divisor:= arbitraryBig downto 2 do begin
  890.     conjecture:= true; (* Applying the "optimist walking" test strategy *)
  891.     for i:= 1 to sixFactorial do begin
  892.       trueTableEachEnum[i]:= true;
  893.       for j:= 1 to threeFactorial do begin
  894.     for k:= 1 to threeFactorial do begin
  895.       diffMatrixAccordingToEnumWays[i,j,k]:= ( enumPerm3[i,j] - enumPerm3[i,k] );
  896.       trueTableEachEnum[i]:= ( diffMatrixAccordingToEnumWays[i,j,k] mod (divisor) = 0 ) and trueTableEachEnum[i];
  897.     end;
  898.       end;
  899.       conjecture:= trueTableEachEnum[i] and conjecture;
  900.     end;
  901.     (* From here the incomplete part of the test... the first 4 natural numbers*)
  902.     for p:= 1 to fourFactorial do begin
  903.       for q:= 1 to fourFactorial do begin
  904.     squaredMatrix_SJT[p,q]:= PermforFirstFoutNaturs_SJT[p] - PermforFirstFoutNaturs_SJT[q];
  905.     squaredMatrix_NUM[p,q]:= PermforFirstFoutNaturs_NUM[p] - PermforFirstFoutNaturs_NUM[q];
  906.     conjecture:= conjecture and ( (squaredMatrix_SJT[p,q] mod (divisor) = 0) and (squaredMatrix_NUM[p,q] mod (divisor) = 0) );
  907.       end;
  908.     end;
  909.     if (conjecture) then begin
  910.       writeln('This conjecture results true with permutations for the first');
  911.       writeln('three and four natural numbers when the divisor is (in base-10):', divisor);
  912.       writeln('');
  913.     end;  
  914.   end;
  915.   writeln('');
  916.   writeln('*** Note: It were considered only 2 among the 4!! (double factorial of four),');
  917.   writeln('          possible ways of enumerating such permutations ***');  
  918.   writeln('');
  919.  
  920. (*
  921.  
  922.  
  923. Curiosity: The tittle "(10-1)^N!" is due the observation that if this conjecture were true the determinant of any differences matrix like those already defined inside this sourcecode, would be a multiple of (10-1)^N!
  924.  
  925. Final comment for this presentation:
  926.  
  927. Since the author of the conjecture and this sourcecode isn't a Mathematician, and feels he had not been trained enough in mathematical proofs according to the current acceptable standards for the worldwide Mathematical community, then he sincerely apologizes for lack of the proof, and encourages everyone interested in these matters for developing either an algebraic formal proof or a definitive refutation. However, it is in the believing of the author, that the truth of the present conjecture lies in no few ways on the truth of the polynomial remainder theorem. (please see A215940 at OEIS.org).
  928.  
  929. Thanks to the readers for their valuable time.
  930.  
  931. *)
  932.  
  933. END.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement