|
%I #18 Jan 08 2024 02:00:07
%S 1,25,49,77,85,91,95,115,119,121,125,133,143,145,155,161,169,185,187,
%T 203,205,209,215,217,221,235,247,253,259,265,287,289,295,299,301,305,
%U 319,323,329,335,341,343,355,361,365,371,377,391,395,403,407,413,415
%N Nonprime numbers k such that phi(k) > 3*k/4.
%H Amiram Eldar, <a href="/A067794/b067794.txt">Table of n, a(n) for n = 1..10000</a>
%t Select[Range[415], !PrimeQ[#] && EulerPhi[#] > 3*#/4 &] (* _Amiram Eldar_, Apr 23 2022 *)
%Y Cf. A000010.
%K nonn
%O 1,2
%A _Benoit Cloitre_, Feb 07 2002
|
