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

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

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

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

Cf. A270304, A270340, A270341.

Sequence in context: A167717 A208079 A223719 * A214618 A343462 A207009

Adjacent sequences: A270292 A270293 A270294 * A270296 A270297 A270298

Keyword

nonn,fini,base

Author

Daniel Mondot, Mar 14 2016

Status

approved