1,2

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

Sequence in context: A117579 A107122 A059113 this_sequence A123524 A123523 A079595

Adjacent sequences: A057836 A057837 A057838 this_sequence A057840 A057841 A057842

nonn,bref

Robert G. Wilson v (rgwv(AT)rgwv.com), Nov 09 2000