Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%I #3 Mar 30 2012 17:30:27
%S 1,7,49,343,539,2401,2429,4169,16807,36197,81977,117649,160867,314531,
%T 823543,1226911,1294139,4751579,5764801
%N Numbers n such that n | 13^n + 11^n + 9^n + 7^n + 5^n + 3^n +1.
%t Select[ Range[ 10^7 ], Mod[ PowerMod[ 13, #, # ] + PowerMod[ 11, #, # ] + PowerMod[ 9, #, # ] + PowerMod[ 7, #, # ] + PowerMod[ 5, #, # ] + PowerMod[ 3, #, # ] + 1, # ] == 0 & ]
%K nonn
%O 1,2
%A _Robert G. Wilson v_, Nov 08 2000