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,2

Links

Table of n, a(n) for n=1..30.

Mathematica

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

Crossrefs

Cf. A074606.

Sequence in context: A273052 A098704 A119298 * A092883 A134495 A173208

Adjacent sequences: A045582 A045583 A045584 * A045586 A045587 A045588

Keyword

nonn

Author

David W. Wilson

Extensions

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

Status

approved