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