SHARE
TWEET

jordan's totient function

science_man_88 May 5th, 2017 186 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
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top