OFFSET
1,6
FORMULA
MAPLE
MATHEMATICA
a[n_] := Max[FactorInteger[2*Prime[n] + 1][[;; , 2]]]; Array[a, 100] (* Amiram Eldar, Sep 09 2024 *)
PROG
(PARI) a(n) = vecmax(factor(2*prime(n)+1)[, 2]); \\ Michel Marcus, Apr 20 2021
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved