A078209 - OEIS

%I #7 May 20 2017 11:58:20

%S 10,21,30,42,55,65,714,817,92,1015,1116,1221,1312,1419,1504,1643,177,

%T 183,1943,2059,219,2212,2324,2403,2522,2626,2781,2889,2943,3051,3175,

%U 3275,33017,3475,3576,3624,3768,38142,39078,40136,4117,42173,4393,4439

%N Smallest multiple of the n-th prime beginning with n.

%H Harvey P. Dale, <a href="/A078209/b078209.txt">Table of n, a(n) for n = 1..1000</a>

%t smnp[n_]:=Module[{p=Prime[n],k=1,idn=IntegerDigits[n],len= IntegerLength[ n]}, While[Take[ IntegerDigits[k*p],len]!=idn,k++];k*p]; Array[smnp,50] (* _Harvey P. Dale_, May 20 2017 *)

%Y Cf. A078208.

%K base,nonn

%O 1,1

%A _Amarnath Murthy_, Nov 22 2002

%E More terms from _Sascha Kurz_, Jan 04 2003