OFFSET
1,2
COMMENTS
LINKS
Diophante, A1730 - Des chiffres à sommer pour un entier (in French).
EXAMPLE
A351650(8) = 13, then digsum(13) = 1+3 = 4 while digsum(13^2) = digsum(169) = 1+6+9 = 16; hence, a(8) = 16/4 = 4.
MATHEMATICA
Select[Total[IntegerDigits[#^2]]/Total[IntegerDigits[#]]& /@ Range[300], IntegerQ] (* Amiram Eldar, Feb 16 2022 *)
PROG
(PARI) lista(nn) = {my(list = List(), q); for (n=1, nn, if (denominator(q=sumdigits(n^2)/sumdigits(n))==1, listput(list, q)); ); Vec(list); } \\ Michel Marcus, Feb 16 2022
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Bernard Schott, Feb 16 2022
EXTENSIONS
More terms from Michel Marcus, Feb 16 2022
STATUS
approved