|
%I #7 Oct 09 2021 12:33:29
%S 1,3,5,9,15,25,27,45,75,81,125,135,225,243,261,295,375,405,625,675,
%T 729,925,1125,1215,1875,2025,2187,3125,3375,3645,4077,4833,5139,5625,
%U 6075,6345,6561,9375,10125,10935,15625,16875,17895,18125,18225,18495,19683
%N Numbers n such that n | 5^n + 4^n + 3^n + 2^n + 1^n.
%H Harvey P. Dale, <a href="/A056741/b056741.txt">Table of n, a(n) for n = 1..100</a>
%t Do[ If[ Mod[ PowerMod[ 5, n, n ] + PowerMod[ 4, n, n ] + PowerMod[ 3, n, n ] + PowerMod[ 2, n, n ] + 1, n ] == 0, Print[ n ] ], {n, 1, 10^6} ]
%t Select[Range[20000],Mod[Total[PowerMod[Range[0,5],#,#]],#]==0&] (* _Harvey P. Dale_, Oct 09 2021 *)
%Y Cf. A001552.
%K nonn
%O 1,2
%A _Robert G. Wilson v_, Aug 25 2000
|
