OFFSET
1,2
LINKS
T. D. Noe, Table of n, a(n) for n=1..1000
W. D. Banks, F. Luca et al., Compositions with the Euler and Carmichael Functions, Ab Math Sem Univ Hamburg 75 (2005) 215-243.
MATHEMATICA
Cases[Range[100], k_ /; EulerPhi[CarmichaelLambda[k]] == CarmichaelLambda[EulerPhi[k]]] (* Artur Jasinski, Apr 05 2008 *)
PROG
(PARI) lambda(p, alpha)={ if(p>=3 || alpha<=2, return(p^(alpha-1)*(p-1)), return(2^(alpha-2)); ); } A002322(n)={ local(pf, rmax, resul); if(n==1, return(1) ); pf=factor(n); rmax=matsize(pf)[1]; resul= lambda(pf[1, 1], pf[1, 2]); for(r=2, rmax, resul=lcm(resul, lambda(pf[r, 1], pf[r, 2])); ); return(resul); } { for(n=1, 300, if( eulerphi(A002322(n))==A002322(eulerphi(n)), print1(n, ", ") ); ); }
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
R. J. Mathar, Sep 27 2006
STATUS
approved