login
A045591
Numbers k that divide 6^k + 4^k.
1
1, 2, 4, 5, 8, 16, 25, 26, 32, 55, 64, 125, 128, 136, 256, 275, 338, 388, 512, 605, 625, 1024, 1375, 2048, 2312, 3025, 3125, 3208, 4096, 4394, 6655, 6875, 8192, 15125, 15625, 16384, 28418, 30025, 31375, 32768, 32896, 33275, 34375, 36896, 37636
OFFSET
1,2
LINKS
MATHEMATICA
Select[Range[40000], Divisible[6^#+4^#, #]&] (* Harvey P. Dale, Oct 06 2011 *)
PROG
(Magma) [n: n in [1..40000] | (4^n+6^n) mod n eq 0]; // G. C. Greubel, Jan 13 2024
(SageMath) [n for n in (1..40000) if (4^n+6^n)%n==0] # G. C. Greubel, Jan 13 2024
CROSSREFS
Cf. A074612.
Sequence in context: A274796 A160967 A326173 * A045581 A253426 A092061
KEYWORD
nonn
STATUS
approved