A067013 Numbers with property that every permutation of digits (dropping any leading zeros) is 1 or a composite number.

1, 4, 6, 8, 9, 10, 12, 15, 18, 21, 22, 24, 25, 26, 27, 28, 33, 36, 39, 40, 42, 44, 45, 46, 48, 49, 51, 52, 54, 55, 56, 57, 58, 60, 62, 63, 64, 65, 66, 68, 69, 72, 75, 77, 78, 80, 81, 82, 84, 85, 86, 87, 88, 90, 93, 94, 96, 99, 100, 102, 105, 108, 111, 114, 116, 117, 120, 122

Offset: 1

Author

Lior Manor, Dec 26 2001

Keywords

• base
• nonn

Examples

			10 is a term since 10 is not a prime number and the permutation (0)1 is not a prime number either.
		

Links

• T. D. Noe, Table of n, a(n) for n = 1..10000

Crossrefs

Subsequence of A248010.

Cf. A067012.

Programs

Mathematica

t={};Do[l1=Table[FromDigits[k],{k,Permutations[IntegerDigits[n]]}]; If[Select[l1,PrimeQ]=={},AppendTo[t,n]],{n,122}];t (* Jayanta Basu, May 03 2013 *)