k

  p:{:[~x!2;:2_&{&/x!'2_!x}'!:x;1;x,:2_&{&/x!'2_!x}'!:x;]}
  {*/_(p x)^_(_log x)%_log p x} 20
232792560