OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
FORMULA
Sum_{k=1..n} a(k) ~ c * n^2 / 2, where c = (A065463 - 6/Pi^2)/(1 - 6/Pi^2)^2 = 0.627858264532... . - Amiram Eldar, Dec 09 2023
MATHEMATICA
f[n_] := If[(r = Times @@ FactorInteger[n][[;; , 1]]) < n, r , 0]; Select[f /@ Range[200], # > 0 &] (* Amiram Eldar, Sep 07 2020 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Nov 06 2002
STATUS
approved