login
A045581
Numbers k that divide 8^k + 2^k.
1
1, 2, 4, 5, 8, 16, 25, 32, 34, 64, 125, 128, 205, 256, 512, 578, 625, 1024, 1025, 1028, 2048, 2525, 3125, 4096, 5125, 8192, 8405, 9826, 10256, 12625, 15625, 16384, 25625, 32768, 42025, 63125, 65536, 78125, 103525, 128125, 131072, 167042, 168305
OFFSET
1,2
LINKS
MATHEMATICA
Select[Range[200000], Divisible[PowerMod[2, #, #] + PowerMod[8, #, #], #] &] (* Amiram Eldar, Oct 23 2021 *)
CROSSREFS
Cf. A074603.
Sequence in context: A160967 A326173 A045591 * A253426 A092061 A256760
KEYWORD
nonn
STATUS
approved