A118547 Squares which are divisible by the sum of their digits.

1, 4, 9, 36, 81, 100, 144, 225, 324, 400, 441, 576, 900, 1296, 1521, 1764, 2025, 2304, 2401, 2601, 2704, 2916, 3600, 3969, 4225, 4356, 4624, 5184, 6084, 6400, 7056, 7744, 8100, 9216, 10000, 10404, 10816, 11025, 11664, 12100, 12321, 12544, 13689, 14400

Offset: 1

Author

Luc Stevens (lms022(AT)yahoo.com), May 03 2006

Keywords

• base
• nonn

Comments

Intersection of A000290 and A005349. - Michel Marcus, Feb 27 2014

Examples

			576 = 24^2 is a term because it is a square and it is divisible by the sum of its digits, 5+7+6 = 18.
		

Links

• Amiram Eldar, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A000290, A005349.

Programs

Mathematica

Select[Range[120]^2, Divisible[#, Plus @@ IntegerDigits[#]] &] (* Amiram Eldar, Mar 24 2021 *)

PARI

isok(n) = issquare(n) && !(n % sumdigits(n)); \\ Michel Marcus, Feb 27 2014