¿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
Si lo quieres compartir o guardar
jueves, 30 de septiembre de 2010
Suscribirse a:
Enviar comentarios (Atom)
Entradas
Otro interesante para desempolvar la programación...
ResponderEliminarfor 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
85555^2= 7319658024+1
ResponderEliminar97777^2= 9560341728+1
Asi es Pablo.
ResponderEliminar