login

Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.

Numbers k that divide 6^k + 2^k.
1

%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_