A270295 - OEIS

A270295

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

0, 1, 9, 81, 488, 507, 827, 1210, 1534, 1912

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,3

COMMENTS

in other bases:

base 16:0, 1, 33, 358

base 17:0, 1, 105, 311

base 18:0, 1

base 19:0, 1, 396

base 20:0, 1, 35

base 21:0, 1, 175, 202

base 22:0, 1, 111

base 23:0, 1, 5, 237, 912

base 24:0, 1, 362, 675, 916

base 25:0, 1, 45, 200, 1072

base 26:0, 1, 1318

LINKS

MATHEMATICA

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

PROG

(PARI) isok(n, b=27) = my(d = digits(n^2, b)); sum(k=1, #d, d[k]^2) == n; \\ Michel Marcus, Mar 16 2016

CROSSREFS

KEYWORD

nonn,fini,base

AUTHOR

STATUS

approved