A055577 Numbers k such that the sum of digits of k^6 is equal to k.

0, 1, 18, 45, 54, 64

Offset

1,3

Links

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

Example

a(2) = 18 because 18^6 = 34012224 and 3+4+0+1+2+2+2+4 = 18

Mathematica

Select[Range[0, 100], #==Total[IntegerDigits[#^6]]&] (* Harvey P. Dale, Oct 26 2011 *)

Prog

(Magma) [n: n in [0..100] | &+Intseq(n^6) eq n ]; // Vincenzo Librandi, Feb 23 2015
(Sage) [n for n in (0..70) if sum((n^6).digits()) == n] # Bruno Berselli, Feb 23 2015
(PARI) isok(k)=sumdigits(k^6)==k \\ Patrick De Geest, Dec 13 2024

Crossrefs

Cf. A055567, A055572, A046459, A055575, A055576, A226971.

Cf. A152147.

Sequence in context: A299383 A177724 A095739 * A281917 A002798 A124388

Adjacent sequences: A055574 A055575 A055576 * A055578 A055579 A055580

Keyword

base,fini,full,nonn,changed

Author

Henry Bottomley, May 26 2000

Status

approved