login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A117224 Numbers for which the square and the cube have the same digital sum. 1
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

Table of n, a(n) for n=1..56.

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

CROSSREFS

Cf. A058369.

Sequence in context: A284202 A275189 A091616 * A173957 A048006 A211231

Adjacent sequences:  A117221 A117222 A117223 * A117225 A117226 A117227

KEYWORD

base,nonn

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 | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified August 10 00:47 EDT 2020. Contains 336359 sequences. (Running on oeis4.)