1,2

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

Sequence in context: A070905 A068532 A094316 this_sequence A023345 A006541 A103857

Adjacent sequences: A057839 A057840 A057841 this_sequence A057843 A057844 A057845

nonn

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