A119405 Primes p such that p and p-th prime do not share any decimal digit.
2, 3, 5, 17, 19, 43, 47, 53, 59, 61, 67, 71, 79, 89, 101, 151, 223, 227, 229, 233, 317, 337, 359, 373, 383, 457, 461, 467, 509, 521, 563, 569, 617, 653, 661, 673, 677, 683, 709, 727, 743, 769, 773, 797, 809, 811, 827, 829, 859, 1039, 1049, 1051, 1063, 1091, 1103
Offset: 1
Examples
Prime 17 is a member since 17 and 17th prime=59 have no digit in common.
Links
- Zak Seidov, Table of n, a(n) for n = 1..1287
Crossrefs
Cf. A000040.
Programs
-
Mathematica
Select[Prime@Range@1102, Intersection[IntegerDigits@#, IntegerDigits@ Prime@# ] == {} &]