Smith numbers: Difference between revisions
m
→{{header|Amazing Hopper}}
Line 467:
resultado={}, primos="", suma1=0, suma2=0 , i=1
temp_primos=0,
fijar separador 'NULO'
Line 473 ⟶ 474:
iterar para ( num=4, #(num<=10000), ++num )
ir por el siguiente si ' es primo(num) '
obtener divisores de (num),
guardar en 'primos'
Line 481 ⟶ 480:
/* análisis p-ádico */
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'
▲ }
siguiente
siguiente
|