OFFSET
1,6
LINKS
MATHEMATICA
{0}~Join~Array[Max[FactorInteger[#][[All, -1]]] &@ Apply[Times, Prime[FactorInteger[#][[All, -1]]]] &, 104, 2] (* Michael De Vlieger, Apr 03 2022 *)
PROG
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Apr 03 2022
STATUS
approved