%I #15 Sep 08 2022 08:45:01

%S 0,1,18,45,54,64

%N Sum of digits of a(n)^6 is equal to a(n).

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

%t Select[Range[0,100],#==Total[IntegerDigits[#^6]]&] (* _Harvey P. Dale_, Oct 26 2011 *)

%o (Magma) [n: n in [0..100] | &+Intseq(n^6) eq n ]; // _Vincenzo Librandi_, Feb 23 2015

%o (Sage) [n for n in (0..70) if sum((n^6).digits()) == n] # _Bruno Berselli_, Feb 23 2015

%Y Cf. A055567, A055572, A046459, A055575, A055576.

%Y Cf. A152147.

%K base,fini,full,nonn

%O 1,3

%A _Henry Bottomley_, May 26 2000