OFFSET
1,2
MATHEMATICA
Select[Range[10^5], Divisible[PowerMod[8, #, #] + PowerMod[3, #, #], #] &] (* Amiram Eldar, Oct 23 2021 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
EXTENSIONS
a(28)-a(30) from Amiram Eldar, Oct 23 2021
STATUS
approved