|
|
A055575
|
|
Sum of digits of n^4 is equal to n.
|
|
10
|
|
|
|
OFFSET
|
1,3
|
|
LINKS
|
|
|
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
|
(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
|
|
|
STATUS
|
approved
|
|
|
|