|
%I #21 Jan 13 2024 10:55:24
%S 1,2,4,5,8,16,25,26,32,55,64,125,128,136,256,275,338,388,512,605,625,
%T 1024,1375,2048,2312,3025,3125,3208,4096,4394,6655,6875,8192,15125,
%U 15625,16384,28418,30025,31375,32768,32896,33275,34375,36896,37636
%N Numbers k that divide 6^k + 4^k.
%H G. C. Greubel, <a href="/A045591/b045591.txt">Table of n, a(n) for n = 1..71</a>
%t Select[Range[40000],Divisible[6^#+4^#,#]&] (* _Harvey P. Dale_, Oct 06 2011 *)
%o (Magma) [n: n in [1..40000] | (4^n+6^n) mod n eq 0]; // _G. C. Greubel_, Jan 13 2024
%o (SageMath) [n for n in (1..40000) if (4^n+6^n)%n==0] # _G. C. Greubel_, Jan 13 2024
%Y Cf. A074612.
%K nonn
%O 1,2
%A _David W. Wilson_
|
