OFFSET
2,1
LINKS
Antti Karttunen, Table of n, a(n) for n = 2..20000
EXAMPLE
Fractions begins with 2, 3, 2, 5, 5/2, 7, 2, 3, 7/2, 11, 5/2, 13, ...
MATHEMATICA
a[n_] := Numerator[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