cp's OEIS Frontend

Maple

with(numtheory):lst:={3}:nn:=250000:x0:=convert(3,base,10):n0:=nops(x0):
  for n from 3 to nn do:
     p:=ithprime(n):x:=convert(p,base,10):
     x1:=x:n1:=nops(x):c:=0:
        for i from 1 to n0 do:
         ii:=0:
           for j from 1 to n1 while(ii=0)do:
             if x0[i]=x[j]
             then
             c:=c+1:x[j]:=99:ii:=1:
             else
             fi:
           od:
         od:
          if c=n0
          then
          lst:=lst union {p}:n0:=n1:x0:=x1:
          else
          fi:
    od:
    print(lst):