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
KEYWORD
nonn
AUTHOR
STATUS
approved