▼

jueves, 30 de septiembre de 2010

510 - Uno mas que un pandigital

¿Qué dos números del tipo abbbb al elevarlos  al cuadrado dan un número que es uno mas que un pandigital?



Del libro de Brian Bolt A mathematical Jamboree

3 comentarios:

  1. Maiar Hawkin30 de septiembre de 2010, 3:52

    Otro interesante para desempolvar la programación...

    for a in $(seq 0 9); do for b in $(seq 0 9); do numero=$((a*10000+b*1000+b*100+b*10+b)); cuadrado=$((numero**2)); pandigital=$((cuadrado-1)); if [ $(echo $pandigital | wc -c) -eq 11 ]; then espan=1; for c in $(seq 1 10); do for d in $(seq 1 10); do if [ $c -ne $d ]; then if [ $(echo $pandigital | cut -c$c) == $(echo $pandigital | cut -c$d) ]; then espan=0; break 2; fi; fi; done; done; if [ $espan -eq 1 ]; then echo "Número: $numero. Cuadrado: $cuadrado. Pandigital: $pandigital"; fi; fi; done; done

    ResponderEliminar
  2. Pablo Sussi30 de septiembre de 2010, 15:03

    85555^2= 7319658024+1
    97777^2= 9560341728+1

    ResponderEliminar
  3. Claudio30 de septiembre de 2010, 16:06

    Asi es Pablo.

    ResponderEliminar

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!