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

%I #5 Jan 27 2015 10:01:43

%S 1,2,6,38,722,874,1102,5934,13718,19342,260642,379794,438254,809362,

%T 1234806,4952198

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

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

%K nonn

%O 1,2

%A _Robert G. Wilson v_, Sep 22 2000

%E More terms (a(15) and a(16)) from _Harvey P. Dale_, Jan 27 2015