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,2

Links

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

Example

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

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 *)

Crossrefs

Cf. A067012.

Sequence in context: A306307 A355170 A248010 * A141607 A071070 A275722

Adjacent sequences: A067010 A067011 A067012 * A067014 A067015 A067016

Keyword

base,nonn

Author

Lior Manor, Dec 26 2001

Status

approved