%I A055201
%S A055201 1,2,3,4,5,6,7,8,9,11,12,13,15,17,18,22,23,24,29,36,37,40,53,55,59,60,
%T A055201 61,62,63,68,69,74,83,86,93,97,107,109,115,116,117,118,123,128,129,139,
%U A055201 142,147,153,154,157,158,162,167,170,175,179,181,182,183,193,194,196
%N A055201 Numbers n such that A005728(n) is prime.
%C A055201 From a question by Leo Moser, s=1; Do[s=s+EulerPhi[n]; If[PrimeQ[s],Print[n]],
               {n,1,100}]
%D A055201 Martin Gardner, "The Last Recreations," Chapter entitled "Strong Laws 
               of Small Primes," Copernicus, Springer-Verlag, NY 1997, page 199.
%Y A055201 Cf. A005728.
%Y A055201 Sequence in context: A002244 A037173 A091897 this_sequence A072303 A081061 
               A141807
%Y A055201 Adjacent sequences: A055198 A055199 A055200 this_sequence A055202 A055203 
               A055204
%K A055201 easy,nonn
%O A055201 1,2
%A A055201 Robert G. Wilson v (rgwv(AT)rgwv.com), Jul 04 2000