A228096 Numbers consisting of only odd digits such that no permutation of its digits yields a prime.
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
Offset: 1
Examples
51 is a member since it consists of only odd digits and both 15 and 51 are composites.
Links
- Jayanta Basu, Table of n, a(n) for n = 1..1000
Programs
-
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 *)
Comments