A204324 Numbers k such that A007953(k) >= A007953(k^3), where A007953 = digital sum in base 10.

0, 1, 8, 10, 80, 100, 171, 378, 468, 487, 577, 585, 586, 587, 684, 800, 1000, 1710, 3780, 4680, 4870, 4877, 5770, 5850, 5851, 5860, 5868, 5870, 6840, 8000, 10000, 15877, 17100, 28845, 28847, 28885, 28887, 37800, 46800, 46877, 48700, 48770, 48784, 49468

Offset: 1

Author

M. F. Hasler, Jan 14 2012

Keywords

• nonn
• base

Comments

When k is in the sequence, then 10*k is in the sequence, too.

Crossrefs

Cf. A064399, A064209, A064210.

Programs

Mathematica

Select[Range[0,51000],Total[IntegerDigits[#]]>=Total[IntegerDigits[#^3]]&] (* Harvey P. Dale, Jul 05 2025 *)

PARI

for(n=0,1e6, A007953(n)>=A007953(n^3)&print1(n","))

Formula

A204324 = A064209 union A070276.