prob70(N)=
{
  minval = 9999999;
  for(i=2,N,
    x=eulerphi(i);
    iStr = Strtex(i);
    xStr = Strtex(x);
    if (vecsort(Vec(iStr)) == vecsort(Vec(xStr)),
      if ((i / x) < minval,
        print1(iStr);
        print1(" ");
        print(xStr);
        minval = i / x;
      )
    )
  )
}