login
A118547
Squares which are divisible by the sum of their digits.
3
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,2
COMMENTS
Intersection of A000290 and A005349. - Michel Marcus, Feb 27 2014
LINKS
EXAMPLE
576 = 24^2 is in the sequence because it is a square and it is divisible by the sum of its digits, 5+7+6 = 18.
MATHEMATICA
Select[Range[120]^2, Divisible[#, Plus @@ IntegerDigits[#]] &] (* Amiram Eldar, Mar 24 2021 *)
PROG
(PARI) isok(n) = issquare(n) && !(n % sumdigits(n)); \\ Michel Marcus, Feb 27 2014
CROSSREFS
Sequence in context: A117756 A326182 A053057 * A363408 A115700 A029806
KEYWORD
base,nonn
AUTHOR
Luc Stevens (lms022(AT)yahoo.com), May 03 2006
STATUS
approved