%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