OFFSET
1,1
EXAMPLE
As 15 = 3*5, 15 is composite; as gcd(15,phi(15)) = gcd(15,8) = 1, it is cyclic (an element of A050384), and as 15 = 4*4 - 1, it is congruent to 3 mod 4 or of the forms 4*n-1 or 4*n+3.
MAPLE
q:= n-> not isprime(n) and igcd(n, numtheory[phi](n))=1:
select(q, [4*i+3$i=1..170])[]; # Alois P. Heinz, Sep 04 2025
MATHEMATICA
Select[Range[3, 1000, 4], CompositeQ[#] && CoprimeQ[#, EulerPhi[#]] &] (* Amiram Eldar, Aug 29 2025 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Joel E. Cohen, Aug 29 2025
STATUS
approved
