5 lines
220 B
Text
5 lines
220 B
Text
say "First 30 Ruth-Aaron numbers (factors):"
|
|
say 30.by {|n| (sopfr(n) == sopfr(n+1)) && (n > 0) }.join(' ')
|
|
|
|
say "\nFirst 30 Ruth-Aaron numbers (divisors):"
|
|
say 30.by {|n| ( sopf(n) == sopf(n+1)) && (n > 0) }.join(' ')
|