This site is supported by donations to The OEIS Foundation.

User:Enrique Pérez Herrero/Jordan

From OeisWiki
Jump to: navigation, search

Jordan's Totient Function

Definition-1

  • counts the number of k-tuples such that and

Definition-2

Jordan Totient Functions in OEIS

Jordan's Totient Function
Function Sequence Id
A000010
A007434
A059376
A059377
A059378
A069091
A069092
A069093
A069094
A069095

Formulas:







  • , Sequence A000225



  • , Sequence A067858


  • , Sequence A065958


  • , Sequence A065959


  • , Sequence A065960


  • , Sequence A351300


  • , Sequence A351301


  • , Sequence A351302


  • , Sequence A351303


Eulerphi divides Jordan´s Totient Function
Function Sequence Id
[1] A001615
A160889
A160891
A160893
A160895
A160897
A160908
A160953
A160957
A160960
A160972
A161010
A161025
A161139
A161167
A161213



  • If then


  • iff is even.



  • , Sequence A003557


  • , Sequence A000056



  • , Sequence: A115224

Arithmetical Matrix Determinants related to Jordan's Functions:

Generalization of Le Paige´s Theorem:


Jordan's Function Determinants
Function Sequence Id
A175836
A001088
A059381
A059382
A059383
A059384
A239672

Array of values of Jordan function read by antidiagonals

Mathematica Code:

(* Function Definitions *)
JordanTotient[n_,k_:1]:=DivisorSum[n,#^k*MoebiusMu[n/#]&]/;(n>0)&&IntegerQ[n]

A000010[n_IntegerQ]:=EulerPhi[n];
A007434[n_IntegerQ]:=JordanTotient[n,2];
A059376[n_IntegerQ]:=JordanTotient[n,3];
A059377[n_IntegerQ]:=JordanTotient[n,4];
A059378[n_IntegerQ]:=JordanTotient[n,5];
A069091[n_IntegerQ]:=JordanTotient[n,6];
A069092[n_IntegerQ]:=JordanTotient[n,7];
A069093[n_IntegerQ]:=JordanTotient[n,8];
A069094[n_IntegerQ]:=JordanTotient[n,9];
A069095[n_IntegerQ]:=JordanTotient[n,10];

(* Related Sequences *)
A067858[n_]:=JordanTotient[n,n];
A160889[n_]:=JordanTotient[n,3]/EulerPhi[n];
 
(* Adding Help *)
JordanTotient::usage="JordanTotient[n,k] is a generalization of EulerPhi[n].";

A000010::usage="A000010[n]: Euler totient function phi(n): count numbers <= n and prime to n.";
A007434::usage="A007434[n]: Jordan function J_2(n) (a generalization of phi(n)).";
A059376::usage="A059376[n]: Jordan function J_3(n).";
A059377::usage="A059377[n]: Jordan function J_4(n).";
A059378::usage="A059378[n]: Jordan function J_5(n).";
A069091::usage="A069091[n]: Jordan function J_6(n).";
A069092::usage="A069092[n]: Jordan function J_7(n).";
A069093::usage="A069093[n]: Jordan function J_8(n).";
A069094::usage="A069094[n]: Jordan function J_9(n).";
A069095::usage="A069095[n]: Jordan function J_10(n)."; 

A067858::usage="A067858[n]: J_n(n), where J is the Jordan function, J_n(n) = n^n product{p|n}(1 - 1/p^n), the product
is over the distinct primes, p, dividing n.";

A160889::usage="A160889: Sum_{d|n} Moebius(n/d)*d^(b-1)/phi(n) for b = 4."; 

(* Attributes *)
SetAttributes[{JordanTotient,A000010,A007434,A059376,A059377,A059378,A069091,A069092,A069093,A069094,A069095},Listable];

PARI/GP Code:

\\ Function definitions: 

jordantot(n,k)=sumdiv(n,d,d^k*moebius(n/d));
dedekindpsi(n)=jordantot(n,2)/eulerphi(n);

A000010(n)=eulerphi(n);
A007434(n)=jordantot(n,2);
A059376(n)=jordantot(n,3);
A059377(n)=jordantot(n,4);
A059378(n)=jordantot(n,5);
A069091(n)=jordantot(n,6);
A069092(n)=jordantot(n,7);
A069093(n)=jordantot(n,8);
A069094(n)=jordantot(n,9);
A069095(n)=jordantot(n,10);
A067858(n)=jordantot(n,n); 

A067858(n)=jordantot(n,n);
A000225(n)=jordantot(2,n);
A001615(n)=dedekindpsi(n);
A160889(n)=jordantot(n,3)/jordantot(n);
A160891(n)=jordantot(n,4)/jordantot(n);
A160893(n)=jordantot(n,5)/jordantot(n);
A160895(n)=jordantot(n,6)/jordantot(n);
A160897(n)=jordantot(n,7)/jordantot(n);
A160908(n)=jordantot(n,8)/jordantot(n);
A160960(n)=jordantot(n,9)/jordantot(n);
A160957(n)=jordantot(n,10)/jordantot(n);
A160960(n)=jordantot(n,11)/jordantot(n);
A160972(n)=jordantot(n,12)/jordantot(n);
A161010(n)=jordantot(n,13)/jordantot(n);
A161025(n)=jordantot(n,14)/jordantot(n);
A161139(n)=jordantot(n,15)/jordantot(n);
A161167(n)=jordantot(n,16)/jordantot(n);
A161213(n)=jordantot(n,17)/jordantot(n); 

A065958(n)=jordantot(n,4)/jordantot(n,2);
A065959(n)=jordantot(n,6)/jordantot(n,3);
A065960(n)=jordantot(n,8)/jordantot(n,4);

Links: