A045585 Numbers k that divide 5^k + 3^k.

1, 2, 34, 578, 4658, 9826, 79186, 167042, 638146, 1346162, 2839714, 5109826, 10848482, 22884754, 48275138, 86867042, 87426002, 184424194, 389040818, 459469778, 700046162, 820677346, 1476739714, 1486242034, 3135211298, 5605479122, 6613693906, 7810986226, 11900784754, 11977362274

Offset: 1

Author

David W. Wilson

Keywords

• nonn

Crossrefs

Cf. A074606.

Programs

Mathematica

Select[Range[10^6], Divisible[PowerMod[3, #, #] + PowerMod[5, #, #], #] &] (* Amiram Eldar, Oct 23 2021 *)

Extensions

a(26)-a(30) from Amiram Eldar, Oct 23 2021