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