Generate and show here, the first twenty Perfect totient numbers.



Related task

   Totient function


Also see

   the OEIS entry for   perfect totient numbers.
   mrob   list of the first 54


C :z=0
  :n=3
*num
C :s=0
  :x=n
*perfect
C :t=0
  :i=1
*totient
C :a=x
  :b=i
*gcd
C :c=a-b*(a/b)
  :a=b
  :b=c
J (b>0):*gcd
C (a=1):t=t+1
C :i=i+1
J (i<=x-1):*totient
C :x=t
  :s=s+x
J (x<>1):*perfect
T (s=n):#n
C (s=n):z=z+1
C :n=n+2
J (z<20):*num
E :