OFFSET
2,5
LINKS
Antti Karttunen, Table of n, a(n) for n = 2..65539
MATHEMATICA
a[n_] := Denominator[Mean[FactorInteger[n][[;; , 1]]]]; Array[a, 100, 2] (* Amiram Eldar, Sep 17 2024 *)
PROG
CROSSREFS
KEYWORD
nonn,easy,frac
AUTHOR
Antti Karttunen, Jan 05 2019
STATUS
approved