login
Prime numbers such that all other numbers obtained from all permutations of all subsets of the digits are nonprime.
1

%I #36 Dec 14 2018 20:15:45

%S 2,3,5,7,11,19,41,61,89,409,449,499,881,6469

%N Prime numbers such that all other numbers obtained from all permutations of all subsets of the digits are nonprime.

%C Sequence is finite since it is a subsequence of a finite sequence (A071062).

%C This is complete: there are only 14 terms in the sequence.

%e 449 is in this sequence because it's prime and none of the numbers 4, 9, 44, 49, 94, 494 and 944 is prime.

%t Select[Prime@ Range[10^3], NoneTrue[DeleteCases[FromDigits /@ Rest@ Union@ Apply[Join, Permutations /@ Subsets@ IntegerDigits@ #], #], PrimeQ] &] (* _Michael De Vlieger_, Oct 22 2018 *)

%Y Subsequence of A071062.

%Y Cf. A320726 (the same for composite numbers).

%K nonn,base,fini,full

%O 1,1

%A _Daniel Lignon_, Oct 19 2018