OFFSET
1,3
EXAMPLE
7 is a member because 7^4 = 2401 and 2+4+0+1 = 7.
MATHEMATICA
Select[Range[0, 50], #==Total[IntegerDigits[#^4]] &] (* Vincenzo Librandi, Feb 23 2015 *)
PROG
(Magma) [n: n in [0..50] | &+Intseq(n^4) eq n ]; // Vincenzo Librandi, Feb 23 2015
(Sage) [n for n in (0..50) if sum((n^4).digits()) == n] # Bruno Berselli, Feb 23 2015
CROSSREFS
KEYWORD
base,fini,full,nonn
AUTHOR
Henry Bottomley, May 26 2000
STATUS
approved