OFFSET
1,2
MATHEMATICA
Select[Range[269*10^4], Mod[PowerMod[7, #, #]+PowerMod[4, #, #], #]==0&] (* Harvey P. Dale, Jun 25 2021 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved