Smith numbers: Difference between revisions

Content added Content deleted

Inline

@@ Line 467: / Line 467: @@
     resultado={}, primos="", suma1=0, suma2=0 , i=1
+    temp_primos=0,
     fijar separador 'NULO'
@@ Line 473: / Line 474: @@
     iterar para ( num=4, #(num<=10000), ++num )
          ir por el siguiente si ' es primo(num) '
-         obtener divisores de (num), mover a 'resultado'
+         obtener divisores de (num), y obtener los primos de esto
-         obtener los primos de 'resultado'
          guardar en 'primos'
@@ Line 481: / Line 480: @@
          /* análisis p-ádico */
-         temp_primos=0, guardar 'primos' en 'temp_primos'
+         guardar 'primos' en 'temp_primos'
          iterar para(q=1, #( q<=length(temp_primos) ) , ++q )
               iterar para( r=1, #( (num % (temp_primos[q]^r)) == 0 ), ++r )
-                   cuando( #(r>1) ){ #(temp_primos[q]) meter en 'primos' }
+                   cuando( #(r>1) ){
+                        #(temp_primos[q]); meter en 'primos'
+                   }
               siguiente
          siguiente