|
Search: id:A072409
|
|
|
| A072409 |
|
4th order digital invariants: the sum of the 4th power of the integer digits of n equals some number k and the sum of the 4th power of the integer digits of k equals n. |
|
+0
4
|
| |
|
|
OFFSET
|
1,2
|
|
|
REFERENCES
|
David Wells, Penguin Dictionary of Curious and Interesting Numbers, Revised Edition, London, England, 1997, p. 155&153.
|
|
EXAMPLE
|
2178 is included because 2^4 + 1^4 + 7^4 + 8^4 = 6514 and 6^4 + 5^4 + 1^4 + 4^4 = 2178.
|
|
MATHEMATICA
|
f[n_] := Apply[Plus, IntegerDigits[Apply[Plus, IntegerDigits[n]^4]]^4]; Select[ Range[10^7], f[ # ] == # &]
|
|
CROSSREFS
|
Sequence in context: A107524 A097225 A063891 this_sequence A052455 A054808 A158775
Adjacent sequences: A072406 A072407 A072408 this_sequence A072410 A072411 A072412
|
|
KEYWORD
|
nonn,fini,full,base
|
|
AUTHOR
|
Harvey P. Dale (hpd1(AT)nyu.edu), Jul 31 2002
|
|
EXTENSIONS
|
Edited by Robert G. Wilson v (rgwv(AT)rgwv.com), Aug 09 2002
|
|
|
Search completed in 0.002 seconds
|
