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

0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 18, 45, 49, 100, 125, 128, 144, 169, 175, 196, 200, 216, 245, 288, 289, 300, 324, 338, 400, 405, 441, 500, 529, 567, 578, 600, 648, 700, 729, 800, 882, 900, 961, 1024, 1058, 1089, 1125, 1296, 1323, 1369, 1372, 1444, 1445, 1458

Offset

1,3

Links

Table of n, a(n) for n=1..54.

Example

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

Mathematica

Select[Range[0, 1500], IntegerQ[Sqrt[# Max[IntegerDigits[#]]]]&] (* Harvey P. Dale, Aug 30 2016 *)

Crossrefs

Cf. A054055.

Sequence in context: A273736 A048409 A066565 * A180084 A092596 A349732

Adjacent sequences: A095963 A095964 A095965 * A095967 A095968 A095969

Keyword

base,easy,nonn,changed

Author

Jason Earls, Jul 15 2004

Status

approved