%I
%S 5,11,17,29,41,47,89,101,137,281,317,479,569,641,761,857,1289,1451,
%T 1721,2297,2909,3449,3881,8741,9209,11657,12281,17489,23321,26237,
%U 36857,39359,46649,62201,73721,98297,147449,157457,331769,393209
%N Primes p such that p+7==0 (mod phi(p+7)).
%t Select[Prime[Range[35000]],Divisible[#+7,EulerPhi[#+7]]&] (* _Harvey P. Dale_, Aug 15 2016 *)
%K easy,nonn
%O 1,1
%A _Benoit Cloitre_, Feb 22 2002
