A095966 - OEIS

%I #9 Apr 14 2024 23:24:46

%S 0,1,2,3,4,5,6,7,8,9,18,45,49,100,125,128,144,169,175,196,200,216,245,

%T 288,289,300,324,338,400,405,441,500,529,567,578,600,648,700,729,800,

%U 882,900,961,1024,1058,1089,1125,1296,1323,1369,1372,1444,1445,1458

%N Numbers k such that k * (largest digit of k) is a square.

%e 18 is a term because 18*8 = 144 = 12^2.

%t Select[Range[0,1500],IntegerQ[Sqrt[# Max[IntegerDigits[#]]]]&] (* _Harvey P. Dale_, Aug 30 2016 *)

%Y Cf. A054055.

%K base,easy,nonn

%O 1,3

%A _Jason Earls_, Jul 15 2004