%I A032799
%S A032799 0,1,2,3,4,5,6,7,8,9,89,135,175,518,598,1306,1676,2427,2646798,
%T A032799 12157692622039623539
%N A032799 Numbers n such that n equals the sum of its digits raised to the consecutive 
               powers (1,2,3,...).
%D A032799 J.-M. De Koninck, Ces nombres qui nous fascinent, Entry 175, p. 55, Ellipses, 
               Paris 2008.
%D A032799 Ken Follett, Code to Zero, Dutton, a Penguin Group, NY 2000, p. 84.
%H A032799 Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/
               NarcissisticNumber.html">Narcissistic Number</a>
%e A032799 2646798 = 2^1 + 6^2 + 4^3 + 6^4 + 7^5 + 9^6 + 8^7.
%t A032799 f[n_] := Plus @@ (IntegerDigits[n]^Range[ Floor[ Log[10, n] + 1]]); Select[ 
               Range[10^7], f[ # ] == # &] (from Robert G. Wilson v (rgwv(AT)rgwv.com), 
               May 04 2005)
%Y A032799 Sequence in context: A023106 A135480 A098766 this_sequence A160343 A024664 
               A078188
%Y A032799 Adjacent sequences: A032796 A032797 A032798 this_sequence A032800 A032801 
               A032802
%K A032799 nonn,base,fini,full
%O A032799 1,3
%A A032799 Patrick De Geest (pdg(AT)worldofnumbers.com), May 15, 1998.
%E A032799 Corrected by Macsy Zhang (macsy(AT)21cn.com), Feb 17, 2002