OFFSET
1,3
EXAMPLE
2704 is a term because 2704 = [4*(2+7+0+4)]^2;
5184 is a term because 5184 = [4*(5+1+8+4)]^2.
MATHEMATICA
Position[ Table[ IntegerLength[k] Sum[( Floor[k/10^n] - 10 Floor[k/10^(n + 1)]), {n, 0, IntegerLength@ k^2}] - k, {k, 1, 10^6}], 0] // Flatten = {1, 1232, 4100, 268542}
Select[Range[10^3]^2, With[{id=IntegerDigits[#]}, #==(Length[id]*Plus@@id)^2]&] (* Ray Chandler, Apr 01 2016 *)
PROG
(PARI) isok(n) = d = digits(n); (#d*vecsum(d))^2 == n; \\ Michel Marcus, Mar 26 2016
CROSSREFS
KEYWORD
nonn,base,fini,full
AUTHOR
José de Jesús Camacho Medina, Mar 18 2016
STATUS
approved