A270340 - OEIS

%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