|
%I #16 Aug 09 2021 01:32:27
%S 1,2,4,7,8,10,16,32,49,50,64,128,136,250,256,343,512,1024,1250,1348,
%T 2048,2312,2401,2653,4096,5050,6250,8192,16384,16807,18571,25250,
%U 31250,32768,32896,33928,35050,39304,65536,88610,117649,126250,129997,131072
%N Numbers k that divide 8^k + 6^k.
%t Select[Range[150000],Divisible[8^#+6^#,#]&] (* _Harvey P. Dale_, Jun 13 2011 *)
%K nonn
%O 1,2
%A _David W. Wilson_
|
