|
Search: id:A069263
|
|
|
| A069263 |
|
(Sum of digits of n)^3 = sum of digits of n^3. |
|
+0
1
|
|
| 1, 2, 10, 11, 20, 100, 101, 110, 111, 200, 1000, 1001, 1010, 1011, 1100, 1101, 1110, 2000, 10000, 10001, 10010, 10011, 10100, 10101, 10110, 11000, 11001, 11010, 11011, 11100, 20000, 100000
(list; graph; listen)
|
|
|
OFFSET
|
1,2
|
|
|
EXAMPLE
|
Let s(n) = sum of digits of n. Then s(101)^3 = 8 and s(101^3) = s(1030301) = 8, so 101 belongs to the sequence.
|
|
MATHEMATICA
|
f[n_] := Apply[Plus, IntegerDigits[n]]; Select[Range[10^5], f[ #^3] == f[ # ]^3 &]
|
|
CROSSREFS
|
Sequence in context: A033293 A051373 A131096 this_sequence A072545 A104459 A008560
Adjacent sequences: A069260 A069261 A069262 this_sequence A069264 A069265 A069266
|
|
KEYWORD
|
base,nonn
|
|
AUTHOR
|
Joseph L. Pe (joseph_l_pe(AT)hotmail.com), Apr 19 2002
|
|
|
Search completed in 0.002 seconds
|
