OFFSET
1,2
COMMENTS
Apart from the first term, A061810 is a subsequence. Conjecture: a(n) ~ A061810(n). - Charles R Greathouse IV, Feb 15 2017
LINKS
Jayanta Basu, Table of n, a(n) for n = 1..1000
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
Jayanta Basu, Aug 10 2013
STATUS
approved