|
%I #20 Oct 23 2021 10:06:57
%S 1,2,3,4,8,9,10,16,27,32,50,64,68,81,128,171,243,250,256,410,512,513,
%T 729,1024,1156,1250,1539,2048,2050,2056,2187,3249,4096,4617,5050,6250,
%U 6561,8192,9747,10250,13203,13851,16384,16810,19652,19683,20512,25250
%N Numbers k that divide 4^k + 2^k or 8^k + 4^k.
%H Amiram Eldar, <a href="/A045577/b045577.txt">Table of n, a(n) for n = 1..500</a>
%t Select[Range[30000],Divisible[4^#+2^#,#]||Divisible[8^#+4^#,#]&] (* _Harvey P. Dale_, Nov 24 2018 *)
%t Select[Range[30000], Divisible[PowerMod[2, #, #] + PowerMod[4, #, #], #] || Divisible[PowerMod[4, #, #] + PowerMod[8, #, #], #] &] (* _Amiram Eldar_, Oct 23 2021 *)
%Y Cf. A063481, A161168.
%K nonn
%O 1,2
%A _David W. Wilson_
|
