%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