OFFSET
1,1
EXAMPLE
a(1) = 1037 because 1037 is composite and 137, 173, 317, 1307, 3701, 7013, and 7103 are prime permutations, and no other permutation of 1036 is prime.
MATHEMATICA
Select[Range[3000], !PrimeQ[#]&&Count[Union[FromDigits/@ Permutations[ IntegerDigits[ #]]], _?PrimeQ]==7&] (* Harvey P. Dale, Apr 16 2013 *)
CROSSREFS
KEYWORD
easy,nonn,base
AUTHOR
Gil Broussard, Jul 30 2009
EXTENSIONS
Example moved from Maple field to Example field by Harvey P. Dale, Apr 16 2013
STATUS
approved