OFFSET
1,3
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 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Artur Jasinski, Nov 05 2007, Nov 07 2007
STATUS
approved