OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
MATHEMATICA
Table[FactorInteger[2*Prime[n] + 1][[1, 1]], {n, 1, 80}] (* Amiram Eldar, Mar 05 2020 *)
PROG
(PARI) a(n) = factor(2*prime(n)+1)[1, 1]; \\ Michel Marcus, Oct 02 2013
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved