%I #24 Jun 20 2021 23:39:47

%S 0,13,0,17,211,113,317,419,223,229,131,137,241,443,347,353,359,461,

%T 167,271,173,179,283,389,197,5101,1103,5107,1109,2113,4127,2131,2137,

%U 4139,11149,1151,4157,1163,3167,6173,2179,1181,3191,1193,5197,6199,4211

%N Smallest prime whose decimal expansion ends (nontrivially) with the n-th prime; or 0 if no such prime exists.

%C a(1) and a(3) (respectively for primes 2 and 5) are trivially zero. All other terms are nonzero by Dirichlet's theorem on arithmetic progressions. - _Joerg Arndt_, Jun 06 2021

%H Wikipedia, <a href="https://en.wikipedia.org/wiki/Dirichlet%27s_theorem_on_arithmetic_progressions">Dirichlet's theorem on arithmetic progressions</a>

%t f[n_] := (k = 1; While[a = ToExpression[ ToString[k] <> ToString[n]]; ! PrimeQ[a], k++ ]; a); Table[ f[ Prime[n]], {n, 4, 50} ]

%Y Cf. A030670.

%K nonn,base

%O 1,2

%A _Robert G. Wilson v_, Nov 12 2001