|
%I #11 Jun 14 2022 17:14:45
%S 2,3,4,5,8,7,9,10,13,12,22,13,21,18,16,17,32,19,27,24,26,25,46,30,33,
%T 28,37,35,58,32,61,34,41,40,39,37,57,54,45,48,55,45,49,50,52,67,94,51,
%U 86,55,64,56,106,57,75,65,63,87,118,64,77,77,73,68,97,75,134,80,89,72
%N Smallest k>n such that phi(n) divides phi(k).
%H Ivan Neretin, <a href="/A069797/b069797.txt">Table of n, a(n) for n = 1..10000</a>
%t sk[n_]:=Module[{p1=EulerPhi[n], k=n+1},While[Mod[EulerPhi[k],p1]!=0,k++];k]; Array[sk,70] (* _Harvey P. Dale_, Jun 14 2022 *)
%o (PARI) for(s=1,80,n=s+1; while(frac(eulerphi(n)/eulerphi(s))>0,n++); print1(n,","); )
%K easy,nonn
%O 1,1
%A _Benoit Cloitre_, May 01 2002
|
