OFFSET
1,2
COMMENTS
No other terms below 10^300. - Max Alekseyev, May 31 2018
EXAMPLE
36 is a term because 36 = (3^2*6^2)/(3+6).
735 is a term because 735 = (7^2*3^2*5^2)/(7+3+5).
MATHEMATICA
Select[Range[10^6], Function[k, k == Apply[Times, #^2]/(Total@ #) &@ IntegerDigits@ k]@ # &] (* Michael De Vlieger, Mar 16 2016 *)
PROG
(PARI) { is_A270393(n) = my(d = digits(n)); n == vecprod(d)^2/vecsum(d); } \\ Michel Marcus, Mar 17 2016
CROSSREFS
KEYWORD
nonn,more,base
AUTHOR
José de Jesús Camacho Medina, Mar 16 2016
STATUS
approved