|
%I #18 Oct 23 2021 10:06:12
%S 1,2,4,8,10,16,32,50,64,128,136,164,250,256,512,1024,1250,1544,2048,
%T 2312,4096,5050,6250,6724,8192,11810,16384,25250,26248,31250,32768,
%U 32896,39304,59050,65536,126250,131072,156250,262144,275684,295250,297992,376708,446216
%N Numbers k that divide 6^k + 2^k.
%H Amiram Eldar, <a href="/A045579/b045579.txt">Table of n, a(n) for n = 1..150</a>
%t Select[Range[300000], Divisible[PowerMod[2, #, #] + PowerMod[6, #, #], #] &] (* _Amiram Eldar_, Oct 23 2021 *)
%Y Cf. A074601.
%K nonn
%O 1,2
%A _David W. Wilson_
|
