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

Pari/GP, 4237 bytes

a->[if(x<2,-1,(d=divisorsx/divisors(x))[#d-1][2])|x<-a] 

Try it online!Try it online!

Pari/GP, 42 bytes

a->[if(x<2,-1,(d=divisors(x))[#d-1])|x<-a] 

Try it online!

Pari/GP, 37 bytes

a->[if(x<2,-1,x/divisors(x)[2])|x<-a] 

Try it online!

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

Pari/GP, 42 bytes

a->[if(x<2,-1,(d=divisors(x))[#d-1])|x<-a] 

Try it online!