A134642 Nonprime permutational numbers A134640.

0, 1, 15, 21, 27, 30, 39, 45, 54, 57, 75, 78, 99, 108, 114, 120, 135, 141, 147, 156, 177, 180, 198, 201, 210, 216, 225, 228, 194, 198, 214, 222, 238, 242, 294, 298, 334, 346, 358, 366, 414, 422, 434, 446, 482, 486, 538, 542, 558, 566, 582, 586, 694, 698, 714

Offset: 1

Author

Artur Jasinski, Nov 05 2007, Nov 07 2007

Keywords

• nonn

Crossrefs

Cf. A134640, A134641.

Programs

Mathematica

a = {}; b = {}; Do[AppendTo[b, n]; w =Permutations[b]; Do[j = FromDigits[w[[m]], n + 1]; If[PrimeQ[j], AppendTo[a, j]], {m, 1, Length[w]}], {n, 0, 10}]; a (*Artur Jasinski*)
Select[Flatten[Table[FromDigits[#,n]&/@Permutations[Range[0,n-1]],{n,5}]],!PrimeQ[#]&] (* Harvey P. Dale, Nov 30 2023 *)