A064209 - OEIS

The OEIS is supported by the many generous donors to the OEIS Foundation.

Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).

Other ways to Give

A064209

Numbers k whose sum of digits exceeds the sum of the digits of k^3.

587, 5870, 28847, 28885, 28887, 46877, 48784, 49468, 49639, 49868, 58700, 67687, 79969, 228981, 235856, 288470, 288850, 288870, 467878, 468770, 484887, 487840, 494680, 496390, 498680, 587000, 594587, 676870, 677758, 685767, 736968, 798969

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,1

LINKS

Harry J. Smith, Table of n, a(n) for n = 1..90

MATHEMATICA

Select[ Range[ 10^6 ], Apply[ Plus, IntegerDigits[ # ] ] > Apply[ Plus, IntegerDigits[ #^3 ] ] & ]

PROG

(PARI) SumD(x)= { local(s); s=0; while (x>9, s+=x-10*(x\10); x\=10); return(s + x) } { n=0; for (m=1, 10^9, if (SumD(m) > SumD(m^3), write("b064209.txt", n++, " ", m); if (n==90, break)) ) } \\ Harry J. Smith, Sep 10 2009

CROSSREFS

Sequence in context: A142836 A093229 A003539 * A113509 A252387 A186395

Adjacent sequences: A064206 A064207 A064208 * A064210 A064211 A064212

KEYWORD

base,nonn

AUTHOR

Robert G. Wilson v, Sep 21 2001

STATUS

approved