OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..406
MAPLE
a:= n-> max(numtheory[factorset](2^n+n)):
seq(a(n), n=1..40); # Alois P. Heinz, Jan 11 2023
MATHEMATICA
a[n_] := FactorInteger[2^n + n][[-1, 1]]; Array[a, 40] (* Amiram Eldar, Mar 30 2023 *)
PROG
(PARI) a(n) = vecmax(factor(2^n+n)[, 1]); \\ Michel Marcus, Jan 11 2023
(Python)
from sympy import primefactors
def A359685(n): return max(primefactors((1<<n)+n)) # Chai Wah Wu, Jan 11 2023
CROSSREFS
KEYWORD
nonn
AUTHOR
Philippe Deléham, Jan 11 2023
STATUS
approved