OFFSET
1,1
MATHEMATICA
Select[Range[2, 400], Mod[#-EulerPhi[#], 9]==0&] (* Harvey P. Dale, Jan 22 2024 *)
PROG
(Python)
from sympy import totient
def isok(n):
return (n-totient(n)) % 9 == 0
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Darío Clavijo, Apr 03 2023
STATUS
approved