OFFSET
1,1
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
FORMULA
MAPLE
f:= n -> max(numtheory:-factorset(n)):
map(f, [seq(i, i=10..1000, 4)]); # Robert Israel, Nov 10 2020
MATHEMATICA
FactorInteger[#][[-1, 1]]&/@(4*Range[70]+6) (* Harvey P. Dale, Mar 12 2017 *)
PROG
(PARI) a(n) = {f = factor(4*n+6); return (f[length(f~), 1]); } \\ Michel Marcus, Apr 19 2013
(PARI) a(n) = vecmax(factor(4*n+6)[, 1]); \\ Michel Marcus, Nov 10 2020
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Zak Seidov, Oct 19 2002
STATUS
approved