A078210 Smallest multiple of n^2 beginning with n.

1, 20, 36, 48, 50, 612, 735, 832, 972, 100, 11011, 1296, 1352, 14112, 1575, 16128, 1734, 18144, 19133, 2000, 21168, 22264, 23276, 24192, 2500, 26364, 27702, 28224, 29435, 30600, 31713, 32768, 33759, 3468, 35525, 36288, 370999, 38988, 39546

Offset

1,2

Links

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

Mathematica

smn2[n_]:=Module[{n2=n^2, idn=IntegerDigits[n], k=1}, While[Take[ IntegerDigits[ k*n2], Length[idn]] != idn, k++]; k*n2]; Array[smn2, 40] (* Harvey P. Dale, Jun 07 2016 *)

Crossrefs

Sequence in context: A326403 A335251 A135801 * A174628 A316098 A308664

Adjacent sequences: A078207 A078208 A078209 * A078211 A078212 A078213

Keyword

base,nonn

Author

Amarnath Murthy, Nov 22 2002

Extensions

Corrected and extended by Sascha Kurz, Jan 04 2003

Status

approved