OFFSET
0,1
LINKS
MATHEMATICA
Table[FactorInteger[3^n+2][[-1, 1]], {n, 0, 30}] (* Harvey P. Dale, Oct 21 2011 *)
PROG
(PARI) for(n=0, 28, f=factor(3^n+2); print1(f[#f[, 1], 1], ", ")) \\ Hugo Pfoertner, Jul 12 2019
(Magma) [Max(PrimeDivisors(3^n+2)):n in [0..28]]; // Marius A. Burtea, Jul 12 2019
CROSSREFS
KEYWORD
nonn
AUTHOR
Hugo Pfoertner, Mar 21 2003
EXTENSIONS
Corrected by T. D. Noe, Nov 15 2006
STATUS
approved