|
|
A103174
|
|
Numbers k with increasing digits such that the digits of k appear among the digits of the k-th prime number.
|
|
0
|
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
We assume digits of k are in increasing order. No terms < 10^7.
|
|
LINKS
|
|
|
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
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|