OFFSET
1,3
LINKS
MATHEMATICA
Array[PrimePi[#2]*#1/#2 & @@ {#, FactorInteger[#][[-1, 1]]} &, 85] (* Michael De Vlieger, Oct 23 2023 *)
PROG
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Oct 23 2023
STATUS
approved