1,2

Select[ Range[ 10^6 ], Mod[ PowerMod[ 9, #, # ] + PowerMod[ 8, #, # ] + PowerMod[ 7, #, # ] + PowerMod[ 6, #, # ] + PowerMod[ 5, #, # ] + PowerMod[ 4, #, # ] + PowerMod[ 3, #, # ] + PowerMod[ 2, #, # ], # ] == 0 & ]

Sequence in context: A007903 A006894 A038093 this_sequence A156463 A156519 A070314

Adjacent sequences: A057281 A057282 A057283 this_sequence A057285 A057286 A057287

nonn

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