viernes, 1 de junio de 2012

938 - Sumando los dígitos del cubo

13 = 1 
23 = 8 
33 = 27 
43 = 64 

 Como vemos en estos primeros números, la suma de los dígitos de los cubos es siempre mayor que la suma de los dígitos del número en cuestión.
 Obviamente que esto no es siempre así, sino no les preguntaría :

 ¿Cuál es el menor número cuyo cubo tiene una suma digital menor que él?
Si lo quieres compartir o guardar
Share/Bookmark

15 comentarios:

  1. Respuestas
    1. Rafael : En este caso la suma es la misma (uno en ambos casos : 1+0 y 1+0+0+0 ), el número que busco tiene una suma digital del cubo menor que la de él

      Eliminar
  2. cuando haces la suma, ¿hay que hacer la suma digital hasta que te quede un número de una cifra o solo sumas una vez?

    ResponderEliminar
    Respuestas
    1. Anónimo tienes razón, no es la suma digital sino la suma de los dígitos, así por ejemplo para 4 la suma da 4 y para su cubo, 64, la suma da 10.

      Eliminar
    2. Correcto, 587 suma 5+8+7 = 20 y su cubo, 202262003, suma 17

      Eliminar
  3. El segundo es 5870, o sea el primero multiplicado por 10.
    El tercero es 28847

    Computacionalmente es facil, pero igual sorprende lo escazos que son.

    ResponderEliminar
  4. Hola, no he venido a responderte, solo darte las gracias por los ratos que paso en tu blog. Ester

    ResponderEliminar
    Respuestas
    1. Gracias Ester!, espero que lo sigas disfrutando.

      Eliminar
    2. Hola!! tengo un problema que no soy capaz de resolver, y es que se me plantea que debo de realizar una funcion que busque todos los números de tres cifras para los que la suma del cubo de sus cifras iguale al propio número. Por exemplo, 153=1^3+5^3+3^3.

      Eliminar
    3. 153=1^3+5^3+3^3
      370=3^3+7^3+0^3
      371=3^3+7^3+1^3
      407=4^3+0^3+7^3

      Eliminar
    4. Si utilizas mathematica de wolfram puedes usar:

      (* calcula la suma de los cubos de sus dígitos *)
      f[x_Integer]:= Module[{s = 0, in = IntegerDigits[x]},
      Do[s += in[[k]]^3, {k, Length[in]}]; s]

      (* buscando entre los primeros 100000 números *)
      Select[Range[100000], # == f[#] &]

      Vicente Iq.

      Eliminar
    5. más sencilla y más rápida es:
      f2[x_Integer] := Total[IntegerDigits[x]^3]
      , pero la anterior es más fácil de traducir a otros lenguajes.

      vicente iq.

      Eliminar
  5. quiero saber si hay mas factores que cumplan con la condicion: de que solo en el producto esten los numeros de los factores. p.e.
    86*8= 688

    ResponderEliminar
    Respuestas
    1. Campo NUÑEZ : esos números son los llamados "números vampiros", puede leer sobre ellos en http://simplementenumeros.blogspot.com.ar/2009/03/los-numeros-de-dracula.html

      ejemplos

      3 * 51 = 153

      6 * 21 = 126

      Con cuatro dígitos :

      8 * 473 = 3784

      9 * 351 = 3159

      15 * 93 = 1395

      21 * 87 = 1827

      27 * 81 = 2187

      35 * 41 = 1435


      Eliminar

Si quieres deja un comentario, si la entrada tiene mas de 15 dias deberás esperar a que la autorice y por favor si no tienes gmail deja tu nombre si no quedas como anónimo. Gracias!