|
Search: id:A023106
|
|
|
| A023106 |
|
a(n) is a power of the sum of its digits. |
|
+0
2
|
|
| 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 81, 512, 2401, 4913, 5832, 17576, 19683, 234256, 390625, 614656, 1679616, 17210368, 34012224, 52521875, 60466176, 205962976, 612220032, 8303765625, 10460353203, 24794911296, 27512614111, 52523350144, 68719476736
(list; graph; listen)
|
|
|
OFFSET
|
0,3
|
|
|
REFERENCES
|
Alfred S. Posamentier, Math Charmers, Tantalizing Tidbits for the Mind, Prometheus Books, NY, 2003, page 36.
|
|
EXAMPLE
|
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,
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,
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,
a(30)=31^7, a(31)=34^7, a(32)=64^6, a(33)=43^7, a(34)=53^7, a(35)=58^7, ...,
|
|
MATHEMATICA
|
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)
|
|
CROSSREFS
|
Sequence in context: A153670 A024663 A038178 this_sequence A135480 A098766 A032799
Adjacent sequences: A023103 A023104 A023105 this_sequence A023107 A023108 A023109
|
|
KEYWORD
|
nonn,base,nice
|
|
AUTHOR
|
David W. Wilson (davidwwilson(AT)comcast.net)
|
|
|
Search completed in 0.002 seconds
|
