A225438 Odd numbers such that no permutation of its digits yields a prime.

1, 9, 15, 21, 25, 27, 33, 39, 45, 49, 51, 55, 57, 63, 65, 69, 75, 77, 81, 85, 87, 93, 99, 105, 111, 117, 123, 129, 135, 141, 147, 153, 155, 159, 161, 165, 171, 177, 183, 185, 187, 189, 195, 201, 205, 207, 213, 219, 221, 225, 231, 237, 243, 245, 247, 249

Offset: 1

Author

Jayanta Basu, May 08 2013

Keywords

• nonn
• base

Comments

Subset of A067013.

Examples

			105 is a member since none of 105, 150, 15, 51, 510, 501 is a prime.
		

Crossrefs

Cf. A067013.

Programs

Mathematica

t={}; Do[If[Length[Select[Table[FromDigits[k], {k,Permutations[IntegerDigits[n]]}],PrimeQ]]==0, AppendTo[t,n]], {n,1,250,2}]; t