A045591 Numbers k that divide 6^k + 4^k.

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

G. C. Greubel, Table of n, a(n) for n = 1..71

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

Adjacent sequences: A045588 A045589 A045590 * A045592 A045593 A045594

Keyword

nonn

Author

David W. Wilson

Status

approved