Smith numbers: Difference between revisions

Content added Content deleted
Line 475: Line 475:
obtener divisores de (num), mover a 'resultado'
obtener divisores de (num), mover a 'resultado'
son primos (resultado), por 'resultado', compactar esto
obtener los primos de 'resultado'
guardar en 'primos'
guardar en 'primos'


obtener dígitos de 'num', calcular sumatoria,
sumar los dígitos de 'num'; guardar en 'suma2'
guardar en 'suma2'
/* análisis p-ádico */
/* análisis p-ádico */
Line 489: Line 488:
siguiente
siguiente
'primos', convertir a cadena, guardar en una cadena;
sumar dígitos de cada número de 'primos'
separarla, convertir a número, calcular sumatoria
guardar en 'suma1'
guardar en 'suma1'


'suma1' respecto a 'suma2' son iguales?
'suma1' respecto a 'suma2' son iguales?
entonces{
entonces{
_muestra número encontrado(num)
_muestra número encontrado 'num'
}
}
siguiente
siguiente