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

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A117224 Numbers for which the square and the cube have the same digital sum. 2
 0, 1, 3, 6, 10, 24, 28, 30, 37, 60, 64, 81, 87, 93, 100, 114, 118, 136, 163, 219, 222, 228, 234, 240, 252, 258, 267, 273, 276, 280, 291, 294, 300, 312, 316, 342, 343, 370, 384, 387, 433, 447, 468, 469, 477, 478, 507, 525, 534, 537, 541, 585, 591, 600, 606, 613 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,3 LINKS David A. Corneth, Table of n, a(n) for n = 1..10000 EXAMPLE 24 is in the sequence because 24^2 = 576, 24^3 = 13824 and 5 + 7 + 6 = 1 + 3 + 8 + 2 + 4. MAPLE a:=proc(n) local nn, nnn: nn:=convert(n^2, base, 10): nnn:=convert(n^3, base, 10): if sum(nn[i], i=1..nops(nn))=sum(nnn[j], j=1..nops(nnn)) then n else fi end: seq(a(n), n=0..620); # Emeric Deutsch, Apr 27 2006 MATHEMATICA scdsQ[n_]:=Total[IntegerDigits[n^2]]==Total[IntegerDigits[n^3]]; Select[ Range[ 0, 700], scdsQ] (* Harvey P. Dale, Jan 23 2019 *) PROG (Magma) [n: n in [0..613] | &+Intseq(n^2) eq &+Intseq(n^3)]; // Bruno Berselli, Jun 28 2011 (PARI) is(n) = sumdigits(n^2) == sumdigits(n^3) \\ David A. Corneth, Sep 05 2020 CROSSREFS Cf. A058369. Sequence in context: A284202 A275189 A091616 * A173957 A048006 A364170 Adjacent sequences: A117221 A117222 A117223 * A117225 A117226 A117227 KEYWORD nonn,easy,base AUTHOR Luc Stevens (lms022(AT)yahoo.com), Apr 21 2006 EXTENSIONS Offset corrected by Arkadiusz Wesolowski, Jun 28 2011 STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified September 10 02:36 EDT 2024. Contains 375769 sequences. (Running on oeis4.)