%I #12 Dec 12 2021 20:14:00
%S 7,5789,234567,345679
%N Numbers k with increasing digits such that the digits of k appear among the digits of the k-th prime number.
%C We assume digits of k are in increasing order. No terms < 10^7.
%C Sequence is complete. - _Giovanni Resta_, Apr 29 2017
%e n: {7, 5789, 234567, 345679}
%e prime(n): {17, 57089, 3264857, 4956733}
%t Select[Rest@ Union[FromDigits /@ Subsets@ Range@ 9], SubsetQ @@ IntegerDigits@ {Prime@#, #} &] (* _Giovanni Resta_, Apr 29 2017 *)
%Y Cf. A080794, A068575, A075902.
%K base,full,fini,nonn
%O 1,1
%A _Labos Elemer_, Feb 28 2005
%E Definition edited by _Giovanni Resta_, May 01 2017