1,2

Select[ Range[ 10^6 ], Mod[ PowerMod[ 8, #, # ] + PowerMod[ 7, #, # ] + 1, # ] == 0 & ]

Sequence in context: A055704 A005740 A006536 this_sequence A005530 A072191 A118324

Adjacent sequences: A057294 A057295 A057296 this_sequence A057298 A057299 A057300

nonn

Robert G. Wilson v (rgwv(AT)rgwv.com), Sep 22 2000