<none>

Wouter Meeussen eu000949 at pophost.eunet.be
Tue Jul 14 23:19:52 CEST 1998


to my surprise, the EulerPhi[k] function seems not to appear in EIS.
(unless I missed a leading 1 or 0;
EIS was inactive 14/07/1998 23:15 CUT)

It is the Euler totient function Phi(n), that gives the number of positive
integers less than n which are relatively prime to n.

Just for fun, I'll include the LeastCommonMultiple of all those positive
integers less than n which are relatively prime to n.

%I A000001 
%S A000001 0,1,2,2,4,2,6,4,6,4,10,4,12,6,8,8,16,6,18,8,12,10,22,8,20,12,18,12,
%T A000001 28,8,30,16,20,16,24,12,36,18,24,16,40,12,42,20,24,22,46,16,42,20,32,
%U A000001 24,52,18,40,24,36,28,58,16,60,30,36,32,48,20,66,32,44,24,70,24,72,36
%N A000001 Euler totient function Phi(n), that gives the number of positive 
integers less than n which are relatively prime to n.
%R A000001 
%A A000001 w.meeussen.vdmcc at vandemoortele.be
%O A000001 0,3
%t A000001 Table[EulerPhi[k],{k,1,120}]
%K A000001 nonn


%I A000002 
%S A000002 1,1,2,3,12,5,60,105,280,63,2520,385,27720,6435,8008,45045,720720,
%T A000002 85085,12252240,2909907,3695120,1322685,232792560,37182145,1070845776,
%U A000002 128707425,2974571600,717084225,80313433200,215656441,2329089562800
%N A000002 LeastCommonMultiple of all the positive integers less than n which 
are relatively prime to n.
%R A000002 
%A A000002 w.meeussen.vdmcc at vandemoortele.be
%O A000002 0,3
%t A000002 Table[LCM@@ Flatten[Position[GCD[n,#]& /@ Range[n],1]] , {n,32}]
%K A000002 nonn
Dr. Wouter L. J. MEEUSSEN
w.meeussen.vdmcc at vandemoortele.be
eu000949 at pophost.eunet.be






More information about the SeqFan mailing list