Entrada destacada

Pronunciación de Nombres de Matemáticos

martes, 1 de agosto de 2017

Una Suma de Cubos Curiosa


Partimos en bloques de uno, dos , tres, etc. las cifras del número 153 intercalándole respectivamente 6, 0 y 3, luego la suma de los cubos de cada bloque da el mismo número.

a = {1}; b = {5}; c = {3};
Do[aa = FromDigits[a]; bb = FromDigits[b]; cc = FromDigits[c]; 
 Print[Spacer[300 - 24 n], 
  FromDigits[a]^3 + FromDigits[b]^3 + FromDigits[c]^3, " = ", aa, 
  Defer[Superscript[ "", 3]], " + ", bb, Defer[Superscript[ "", 3]], 
  " + ", cc, Defer[Superscript[ "", 3]]]; AppendTo[a, 6]; 
 AppendTo[b, 0]; AppendTo[c, 3], {n, 10}]






Resultado bastante curioso





Para aprender más sobre Mathematica ingrese aquí sitio de aprendizaje de Wolfram o en mi website ustamathematica.wixsite.com/basicas


No hay comentarios.:

Publicar un comentario