OFFSET
0,1
COMMENTS
If the common digits were not required to be distinct, the resulting sequence would be 2, 3, 11, 13, 101, 103, 1013, 1019, 1913, 1931, 18379, 18397, 109279, 109297, 1000213, 1000231, ... - Giovanni Resta, Oct 29 2019
MATHEMATICA
aa[n_] := Block[{p, q, cp, cq}, p = NextPrime[10^(n - 1)]; cp = IntegerDigits@ p; While[True, q = NextPrime[p]; cq = IntegerDigits[q]; If[ Length[ Intersection[cp, cq]] >= n, Break[]]; p=q; cp=cq]; {p, q}]; Flatten[aa /@ Range[0, 9]] (* Giovanni Resta, Oct 29 2019 *)
CROSSREFS
KEYWORD
nonn,base,fini,full
AUTHOR
Labos Elemer, Oct 21 2002
EXTENSIONS
Corrected and extended by Giovanni Resta, Oct 29 2019
STATUS
approved