A103174 Numbers k with increasing digits such that the digits of k appear among the digits of the k-th prime number.
7, 5789, 234567, 345679
Offset: 1
Examples
n: {7, 5789, 234567, 345679} prime(n): {17, 57089, 3264857, 4956733}
Programs
-
Mathematica
Select[Rest@ Union[FromDigits /@ Subsets@ Range@ 9], SubsetQ @@ IntegerDigits@ {Prime@#, #} &] (* Giovanni Resta, Apr 29 2017 *)
Extensions
Definition edited by Giovanni Resta, May 01 2017
Comments