A320725 Prime numbers such that all other numbers obtained from all permutations of all subsets of the digits are nonprime.
2, 3, 5, 7, 11, 19, 41, 61, 89, 409, 449, 499, 881, 6469
Offset: 1
Examples
449 is in this sequence because it's prime and none of the numbers 4, 9, 44, 49, 94, 494 and 944 is prime.
Programs
-
Mathematica
Select[Prime@ Range[10^3], NoneTrue[DeleteCases[FromDigits /@ Rest@ Union@ Apply[Join, Permutations /@ Subsets@ IntegerDigits@ #], #], PrimeQ] &] (* Michael De Vlieger, Oct 22 2018 *)
Comments