|
|
A228096
|
|
Numbers consisting of only odd digits such that no permutation of its digits yields a prime.
|
|
2
|
|
|
1, 9, 15, 33, 39, 51, 55, 57, 75, 77, 93, 99, 111, 117, 135, 153, 155, 159, 171, 177, 195, 315, 333, 339, 351, 355, 357, 375, 393, 399, 513, 515, 519, 531, 535, 537, 551, 553, 555, 559, 573, 579, 591, 595, 597, 711, 717, 735, 753, 759, 771, 777, 795
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
|
|
LINKS
|
|
|
EXAMPLE
|
51 is a member since it consists of only odd digits and both 15 and 51 are composites.
|
|
MATHEMATICA
|
Select[Range[800], And @@ OddQ[x = IntegerDigits[#]] && Count[FromDigits /@ Permutations[x], _?PrimeQ] == 0 &]
Table[FromDigits/@Select[Tuples[Range[1, 9, 2], n], NoneTrue[FromDigits/@ Permutations[#], PrimeQ]&], {n, 3}]//Flatten (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Sep 09 2019 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|