|
%I #4 May 08 2013 16:24:39
%S 1,9,15,21,25,27,33,39,45,49,51,55,57,63,65,69,75,77,81,85,87,93,99,
%T 105,111,117,123,129,135,141,147,153,155,159,161,165,171,177,183,185,
%U 187,189,195,201,205,207,213,219,221,225,231,237,243,245,247,249
%N Odd numbers such that no permutation of its digits yields a prime.
%C Subset of A067013.
%e 105 is a member since none of 105, 150, 15, 51, 510, 501 is a prime.
%t t={}; Do[If[Length[Select[Table[FromDigits[k], {k,Permutations[IntegerDigits[n]]}],PrimeQ]]==0, AppendTo[t,n]], {n,1,250,2}]; t
%Y Cf. A067013.
%K nonn,base
%O 1,2
%A _Jayanta Basu_, May 08 2013
|
