science_man_88

jordan's totient function

May 5th, 2017
769
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. jordan(n,k)=my(a=n^k);fordiv(n,i,if(isprime(i),a*=(1-1/(i^k))));a
RAW Paste Data