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