OFFSET
1,1
COMMENTS
We assume digits of k are in increasing order. No terms < 10^7.
Sequence is complete. - Giovanni Resta, Apr 29 2017
EXAMPLE
n: {7, 5789, 234567, 345679}
prime(n): {17, 57089, 3264857, 4956733}
MATHEMATICA
Select[Rest@ Union[FromDigits /@ Subsets@ Range@ 9], SubsetQ @@ IntegerDigits@ {Prime@#, #} &] (* Giovanni Resta, Apr 29 2017 *)
CROSSREFS
KEYWORD
base,full,fini,nonn
AUTHOR
Labos Elemer, Feb 28 2005
EXTENSIONS
Definition edited by Giovanni Resta, May 01 2017
STATUS
approved