OFFSET
1,1
COMMENTS
It is obvious that if k is in this sequence, then so is 10*k. Additionally, this sequence contains other infinite subsequences. For example, 10^(2*k) + 10^k + 1 is in this sequence for all k > 0. - Altug Alkan, Aug 12 2017
LINKS
Seiichi Manyama, Table of n, a(n) for n = 1..500
EXAMPLE
27^3 = 19683, 1 + 9 + 6 + 8 + 3 = 27 = 3^3.
MATHEMATICA
Select[Range[500], Total[IntegerDigits[#^3]]==27&] (* Harvey P. Dale, Jan 02 2026 *)
PROG
(PARI) isok(n) = sumdigits(n^3) == 27; \\ Altug Alkan, Aug 12 2017
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Seiichi Manyama, Aug 12 2017
STATUS
approved
