This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A270393 #23 May 31 2018 14:51:13
%S A270393 1,2,3,4,5,6,7,8,9,36,735
%N A270393 Another variant of narcissistic numbers: integers n equal the product of squared digits of n divided by the sum of digits of n, i.e., n = A007954(n)^2/A007953(n).
%C A270393 No other terms below 10^300. - _Max Alekseyev_, May 31 2018
%e A270393 36 is a term because 36 = (3^2*6^2)/(3+6).
%e A270393 735 is a term because 735 = (7^2*3^2*5^2)/(7+3+5).
%t A270393 Select[Range[10^6], Function[k, k == Apply[Times, #^2]/(Total@ #) &@ IntegerDigits@ k]@ # &] (* _Michael De Vlieger_, Mar 16 2016 *)
%o A270393 (PARI) { is_A270393(n) = my(d = digits(n)); n == vecprod(d)^2/vecsum(d); } \\ _Michel Marcus_, Mar 17 2016
%Y A270393 Subsequence of A128606.
%Y A270393 Cf. A005188, A257554.
%K A270393 nonn,more,base
%O A270393 1,2
%A A270393 _José de Jesús Camacho Medina_, Mar 16 2016