|
%I #19 Oct 23 2021 10:06:23
%S 1,2,4,5,8,16,25,32,34,64,125,128,205,256,512,578,625,1024,1025,1028,
%T 2048,2525,3125,4096,5125,8192,8405,9826,10256,12625,15625,16384,
%U 25625,32768,42025,63125,65536,78125,103525,128125,131072,167042,168305
%N Numbers k that divide 8^k + 2^k.
%H Amiram Eldar, <a href="/A045581/b045581.txt">Table of n, a(n) for n = 1..400</a>
%t Select[Range[200000], Divisible[PowerMod[2, #, #] + PowerMod[8, #, #], #] &] (* _Amiram Eldar_, Oct 23 2021 *)
%Y Cf. A074603.
%K nonn
%O 1,2
%A _David W. Wilson_
|
