login
Numbers n such that n | 7^n + 5^n + 3^n +1.
0

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

%S 1,2,4,6,12,14,28,78,98,148,196,686,689,1014,1372,1751,2724,4134,4802,

%T 5154,5819,9604,10094,12246,13182,19306,19796,33614,50764,53742,60578,

%U 67228,106708,108146,117404,126409,135142,158732,159198,171366,219102

%N Numbers n such that n | 7^n + 5^n + 3^n +1.

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

%K nonn

%O 1,2

%A _Robert G. Wilson v_, Nov 08 2000