A270340 Numbers that equal the sum of the squares of the digits of their own square in base 13.

0, 1, 74, 130, 180, 192, 210

Offset

1,3

Comments

in other bases:

base 2:0, 1

base 3:0, 1, 2, 7

base 4:0, 1, 13

base 5:0, 1, 6

base 6:0, 1

base 7:0, 1

base 8:0, 1, 4, 16, 51

base 9:0, 1, 33

base 10:0, 1

base 11:0, 1, 94

base 12:0, 1, 5, 183

Links

Table of n, a(n) for n=1..7.

Mathematica

Select[Range[0, 1000], # == Total[IntegerDigits[#^2, 13]^2] &] (* Michael De Vlieger, Mar 15 2016 *)

Crossrefs

Cf. A270295, A270304, A270341.

Sequence in context: A045283 A118221 A333100 * A300379 A300681 A309143

Adjacent sequences: A270337 A270338 A270339 * A270341 A270342 A270343

Keyword

nonn,fini,base

Author

Daniel Mondot, Mar 15 2016

Status

approved