login
Numbers k that divide 5^k + 3^k.
0

%I #17 Oct 23 2021 10:06:32

%S 1,2,34,578,4658,9826,79186,167042,638146,1346162,2839714,5109826,

%T 10848482,22884754,48275138,86867042,87426002,184424194,389040818,

%U 459469778,700046162,820677346,1476739714,1486242034,3135211298,5605479122,6613693906,7810986226,11900784754,11977362274

%N Numbers k that divide 5^k + 3^k.

%t Select[Range[10^6], Divisible[PowerMod[3, #, #] + PowerMod[5, #, #], #] &] (* _Amiram Eldar_, Oct 23 2021 *)

%Y Cf. A074606.

%K nonn

%O 1,2

%A _David W. Wilson_

%E a(26)-a(30) from _Amiram Eldar_, Oct 23 2021