[go: up one dir, main page]

login
A078210
Smallest multiple of n^2 beginning with n.
1
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
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
KEYWORD
base,nonn
AUTHOR
Amarnath Murthy, Nov 22 2002
EXTENSIONS
Corrected and extended by Sascha Kurz, Jan 04 2003
STATUS
approved