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

Links

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

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

Crossrefs

Cf. A078208.

Sequence in context: A097386 A108685 A108686 * A265415 A245071 A256825

Adjacent sequences: A078206 A078207 A078208 * A078210 A078211 A078212

Keyword

base,nonn

Author

Amarnath Murthy, Nov 22 2002

Extensions

More terms from Sascha Kurz, Jan 04 2003

Status

approved