A078209 Smallest multiple of the n-th prime beginning with n.

10, 21, 30, 42, 55, 65, 714, 817, 92, 1015, 1116, 1221, 1312, 1419, 1504, 1643, 177, 183, 1943, 2059, 219, 2212, 2324, 2403, 2522, 2626, 2781, 2889, 2943, 3051, 3175, 3275, 33017, 3475, 3576, 3624, 3768, 38142, 39078, 40136, 4117, 42173, 4393, 4439

Offset: 1

Author

Amarnath Murthy, Nov 22 2002

Keywords

• base
• nonn

Links

• Harvey P. Dale, Table of n, a(n) for n = 1..1000

Crossrefs

Cf. A078208.

Programs

Mathematica

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 *)

Extensions

More terms from Sascha Kurz, Jan 04 2003