%I #21 Aug 02 2023 16:22:54
%S 1,2,3,9,27,39,74,81,117,243,351,507,729,1053,1521,2187,2738,3081,
%T 3159,4563,6123,6561,6591,9243,9477,12207,13689,18369,19683,19773,
%U 27729,28431,36621,40053,41067,43882,55107,59049,59319,79599,83187,85293
%N Numbers k that divide 7^k + 5^k.
%H Harvey P. Dale, <a href="/A045596/b045596.txt">Table of n, a(n) for n = 1..141</a> (* All terms up to 10^7. *)
%t Select[Range[86000],Mod[PowerMod[7,#,#]+PowerMod[5,#,#],#]==0&] (* _Harvey P. Dale_, Aug 02 2023 *)
%Y Cf. A074616.
%K nonn
%O 1,2
%A _David W. Wilson_
|