OFFSET
1,2
COMMENTS
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
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
KEYWORD
base,nonn
AUTHOR
Luc Stevens (lms022(AT)yahoo.com), May 03 2006
STATUS
approved