%I A023106
%S A023106 0,1,2,3,4,5,6,7,8,9,81,512,2401,4913,5832,17576,19683,234256,390625,
%T A023106 614656,1679616,17210368,34012224,52521875,60466176,205962976,612220032,
%U A023106 8303765625,10460353203,24794911296,27512614111,52523350144,68719476736
%N A023106 a(n) is a power of the sum of its digits.
%D A023106 Alfred S. Posamentier, Math Charmers, Tantalizing Tidbits for the Mind, 
               Prometheus Books, NY, 2003, page 36.
%e A023106 a(0)-a(9)= a(n)^1, a(10)=81=9^2, a(11)=8^3, a(12)=7^4, a(13)=17^3, a(14)=18^3, 
               a(15)=26^3,
%e A023106 a(16)=27^3, a(17)=22^4, a(18)=25^4, a(19)=28^4, a(20)=36^4, a(21)=28^5, 
               a(22)=18^6,
%e A023106 a(23)=35^5, a(24)=36^5, a(25)=46^5, a(26)=18^7, a(27)=45^6, a(28)=27^7, 
               a(29)=54^6,
%e A023106 a(30)=31^7, a(31)=34^7, a(32)=64^6, a(33)=43^7, a(34)=53^7, a(35)=58^7, 
               ...,
%t A023106 fQ[n_] := Block[{b = Plus @@ IntegerDigits[n]}, If[b > 1, IntegerQ[ Log[b, 
               n]] ]]; Take[ Select[ Union[ Flatten[ Table[n^m, {n, 55}, {m, 9}]]], 
               fQ[ # ] &], 31] (from Robert G. Wilson v Jan 28 2005)
%Y A023106 Sequence in context: A153670 A024663 A038178 this_sequence A135480 A098766 
               A032799
%Y A023106 Adjacent sequences: A023103 A023104 A023105 this_sequence A023107 A023108 
               A023109
%K A023106 nonn,base,nice
%O A023106 0,3
%A A023106 David W. Wilson (davidwwilson(AT)comcast.net)