prob214(N)=
{
  default(primelimit,50000000);
  tot = 0;
  forprime (p=2,50000000,
	if (p >= N, break,
		l = 2;
		r = eulerphi(p);
		while ((r != 1 && l <= 25),
			r = eulerphi(r);
			l++;
		);
		if (l == 25, tot += p);
	);
  );
  print(tot)
}