This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A204324 #14 Jul 06 2025 11:25:03 %S A204324 0,1,8,10,80,100,171,378,468,487,577,585,586,587,684,800,1000,1710, %T A204324 3780,4680,4870,4877,5770,5850,5851,5860,5868,5870,6840,8000,10000, %U A204324 15877,17100,28845,28847,28885,28887,37800,46800,46877,48700,48770,48784,49468 %N A204324 Numbers k such that A007953(k) >= A007953(k^3), where A007953 = digital sum in base 10. %C A204324 When k is in the sequence, then 10*k is in the sequence, too. %F A204324 A204324 = A064209 union A070276. %t A204324 Select[Range[0,51000],Total[IntegerDigits[#]]>=Total[IntegerDigits[#^3]]&] (* _Harvey P. Dale_, Jul 05 2025 *) %o A204324 (PARI) for(n=0,1e6, A007953(n)>=A007953(n^3)&print1(n",")) %Y A204324 Cf. A064399, A064209, A064210. %K A204324 nonn,base %O A204324 1,3 %A A204324 _M. F. Hasler_, Jan 14 2012