%I A072896
%S A072896 1,4150,4151,54748,58618,76438,89883,92727,93084,157596,194979
%N A072896 5th order digital invariants: the sum of the 5th powers of the digits 
               of n equals some number k and the sum of the 5th powers of the digits 
               of k equals n.
%D A072896 David Wells, The Penguin Dictionary of Curious and Interesting Numbers, 
               Revised Edition, London, England, 1997, pgs. 157&168.
%e A072896 58618 is included because 5^5 + 8^5 + 6^5 + 1^5 + 8^5 = 76438 and 7^5 
               + 6^5 + 4^5 + 3^5 + 8^5 = 58618.
%t A072896 f[n_] := Apply[Plus, IntegerDigits[Apply[Plus, IntegerDigits[n]^5]]^5]; 
               Select[ Range[10^7], f[ # ] == # &]
%Y A072896 Cf. A072409.
%Y A072896 Sequence in context: A162003 A107541 A106537 this_sequence A052464 A161752 
               A145205
%Y A072896 Adjacent sequences: A072893 A072894 A072895 this_sequence A072897 A072898 
               A072899
%K A072896 nonn,fini,full,base
%O A072896 1,2
%A A072896 Robert G. Wilson v (rgwv(AT)rgwv.com), Aug 09 2002