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

Author

David W. Wilson

Keywords

• nonn

Links

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

Crossrefs

Cf. A074612.

Programs

Magma

[n: n in [1..40000] | (4^n+6^n) mod n eq 0]; // G. C. Greubel, Jan 13 2024

Mathematica

Select[Range[40000],Divisible[6^#+4^#,#]&] (* Harvey P. Dale, Oct 06 2011 *)

SageMath

[n for n in (1..40000) if (4^n+6^n)%n==0] # G. C. Greubel, Jan 13 2024