OFFSET
1,4
MATHEMATICA
Join[{0, 0}, Table[Max[FactorInteger[p-3][[All, 2]]], {p, Prime[Range[3, 100]]}]] (* Harvey P. Dale, Mar 11 2019 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved