|
%I #9 Jun 07 2016 18:07:56
%S 1,20,36,48,50,612,735,832,972,100,11011,1296,1352,14112,1575,16128,
%T 1734,18144,19133,2000,21168,22264,23276,24192,2500,26364,27702,28224,
%U 29435,30600,31713,32768,33759,3468,35525,36288,370999,38988,39546
%N Smallest multiple of n^2 beginning with n.
%H Harvey P. Dale, <a href="/A078210/b078210.txt">Table of n, a(n) for n = 1..1000</a>
%t 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 *)
%K base,nonn
%O 1,2
%A _Amarnath Murthy_, Nov 22 2002
%E Corrected and extended by _Sascha Kurz_, Jan 04 2003
|
