A057262 - OEIS

%I #3 Mar 30 2012 17:30:27

%S 1,3,9,27,81,87,243,729,1027,1467,2187,2781,6561,19683,35901,59049,

%T 62613,63423,63909,136503,137133,177147,531441,925101,1594323,2785509,

%U 3680883,4782969,5080077,6409507

%N Numbers n such that n | 7^n + 6^n + 5^n + 4^n + 3^n + 2^n.

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

%K nonn

%O 1,2

%A _Robert G. Wilson v_, Sep 21 2000