s={11};t={1,1};u={t};v={1};Do[p=13;While[f=Floor[p/10];m=Mod[p,10];w=Join[t,IntegerDigits[p]];q={};Do[If[u[[k]][[1]]<=Length[w],AppendTo[q,w[[u[[k]][[1]]]]==u[[k]][[-1]]]],{k,Length[u]}];MemberQ[v,f]||Union[q]!={True}||(f<=Length[w]&&w[[f]]!=m),p=NextPrime[p]];AppendTo[s,p];t=w;AppendTo[u,{f,m}];AppendTo[v,f],{100}];s

{11,41,61,83,113,101,151,181,233,223,263,293,353,383,419,401,479,467,541,1009,599,631,661,691,727,751,787,797,809,877,907,919,967,991,9001,1031,1063,1151,1171,1187,1201,1237,1303,1321,1361,1373,1453,1481,1597,1601,1693,2309,1669,1721,1759,1777,1801,1867,1877,1987,1997,2069,2131,2143,2237,2273,2393,2267,2293,2357,2389,2437,2503,2591,2633,2671,2711,2753,2777,2797,2837,2917,2939,2999,3037,3023,3083,3163,3191,3203,3271,3313,3301,3323,3373,3413,3433,3461,3593,3631,3623}