|
%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
|
