|
|
|
|
|
|
|
|
|
#20 by Harvey P. Dale at Sat Jul 20 20:16:42 EDT 2024
|
|
|
|
|
|
|
|
#19 by Harvey P. Dale at Sat Jul 20 20:16:40 EDT 2024
|
|
| MATHEMATICA
|
Table[Select[FromDigits/@Permutations[Range[n]], PrimeQ], {n, 4, 97}]//Flatten (* Harvey P. Dale, Jul 20 2024 *)
|
|
| STATUS
|
approved
editing
|
|
|
|
|
|
|
#18 by Harvey P. Dale at Sat Jul 20 20:16:06 EDT 2024
|
|
|
|
|
|
|
|
#17 by Harvey P. Dale at Sat Jul 20 20:16:03 EDT 2024
|
|
| MATHEMATICA
|
Table[Select[FromDigits/@Permutations[Range[n]], PrimeQ], {n, 4, 79}]//Flatten (* Harvey P. Dale, Jul 20 2024 *)
|
|
| STATUS
|
approved
editing
|
|
|
|
|
|
|
#16 by Harvey P. Dale at Sat Jul 20 20:13:37 EDT 2024
|
|
|
|
|
|
|
|
#15 by Harvey P. Dale at Sat Jul 20 20:13:22 EDT 2024
|
|
| MATHEMATICA
|
Table[Select[FromDigits/@Permutations[Range[n]], PrimeQ], {n, 4, 7}]//Flatten (* Harvey P. Dale, Jul 20 2024 *)
|
|
| STATUS
|
approved
editing
|
|
|
|
|
|
|
#14 by Peter Luschny at Fri Jan 05 08:12:08 EST 2018
|
|
|
|
|
|
|
|
#13 by Michel Marcus at Fri Jan 05 07:36:51 EST 2018
|
|
|
|
|
|
|
|
#12 by Hans Havermann at Fri Jan 05 06:36:08 EST 2018
|
|
|
|
|
|
Discussion
|
| Fri Jan 05
| 07:36
| Michel Marcus: thanks
|
|
|
|
|
|
|
#11 by Hans Havermann at Fri Jan 05 06:35:34 EST 2018
|
|
| COMMENTS
|
The b-file includes all 7-digit terms. For d=8 and d=9, permutations are divisible by 9. For d>9, we cannot have a d-digit permutation. - Hans Havermann, Jan 05 2018
|
|
| EXTENSIONS
|
Keywords fini and full from Hans Havermann, Jan 05 2018
|
|
|
|
|
|
