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


  [ 0 over
    [ dup 1 != while 
      totient
      dup dip +
      again ]  
    drop = ]                is perfecttotient ( n --> b )    
 
  [ [] 1
    [ dup perfecttotient if
        [ dup dip join ]
      2 +
    over size 20 = 
    until ] drop ]          is task            (   -->  )
 