OFFSET
1,1
COMMENTS
The last term is a(163) = 102437.
LINKS
Zak Seidov, Table of n, a(n) for n = 1..163
MATHEMATICA
a249953[n_Integer] := Module[{t = {1}, i},
Do[If[And[DuplicateFreeQ[IntegerDigits[Prime[i]]],
Length[Intersection[IntegerDigits[Last@t],
IntegerDigits[Prime[i]]]] == 1], True;
t = Append[t, Prime[i]]], {i, 1, n}]; Rest[t]]; a249953[120000] (* Michael De Vlieger, Dec 14 2014 *)
lp1d[n_]:=Module[{p=NextPrime[n]}, While[Length[Intersection[ IntegerDigits[ n], IntegerDigits[p]]]!=1||!DuplicateFreeQ[ IntegerDigits[ p]], p= NextPrime[ p]]; p]; NestList[lp1d, 13, 60] (* Harvey P. Dale, May 31 2019 *)
CROSSREFS
KEYWORD
nonn,base,fini,full
AUTHOR
Zak Seidov, Dec 05 2014
STATUS
approved