%I #10 Mar 21 2016 21:24:37
%S 0,1,74,130,180,192,210
%N Numbers that equal the sum of the squares of the digits of their own square in base 13.
%C in other bases:
%C base 2:0, 1
%C base 3:0, 1, 2, 7
%C base 4:0, 1, 13
%C base 5:0, 1, 6
%C base 6:0, 1
%C base 7:0, 1
%C base 8:0, 1, 4, 16, 51
%C base 9:0, 1, 33
%C base 10:0, 1
%C base 11:0, 1, 94
%C base 12:0, 1, 5, 183
%t Select[Range[0, 1000], # == Total[IntegerDigits[#^2, 13]^2] &] (* _Michael De Vlieger_, Mar 15 2016 *)
%Y Cf. A270295, A270304, A270341.
%K nonn,fini,base
%O 1,3
%A _Daniel Mondot_, Mar 15 2016