Skip to main content
deleted 4 characters in body
Source Link
alephalpha
  • 51.9k
  • 7
  • 75
  • 196

Pari/GP, 3636 30 bytes

n->sum(i=2,n,Vecrev(i/divisors(i))[2]) 

Try it online!Try it online!

Pari/GP, 36 bytes

n->sum(i=2,n,Vecrev(divisors(i))[2]) 

Try it online!

Pari/GP, 36 30 bytes

n->sum(i=2,n,i/divisors(i)[2]) 

Try it online!

Source Link
alephalpha
  • 51.9k
  • 7
  • 75
  • 196

Pari/GP, 36 bytes

n->sum(i=2,n,Vecrev(divisors(i))[2]) 

Try it online!