reviewed
approved
reviewed
approved
proposed
reviewed
editing
proposed
Sum_{n>=1} 1/a(n) = (4/5) * A065483 - 7/8 = 0.196827322859... . - Amiram Eldar, Sep 19 2023
f[p_, e_] := NextPrime[p]^(e + 2); a[1] = 8; a[n_] := Times @@ f @@@ FactorInteger[n]; Array[a, 100] (* Amiram Eldar, Sep 19 2023 *)
approved
editing
editing
approved
a(1)=8; if n = Product p_i^e_i, n > 1, then a(n) = Product p_{i+1}^{e_i+2}.
More terms from David W. Wilson.
approved
editing
More terms from _David W. Wilson (davidwwilson(AT)comcast.net)_.
From a puzzle proposed by _Marc LeBrun (mlb(AT)well.com)_.
_N. J. A. Sloane (njas(AT)research.att.com)_.
easy,nonn,new
N. J. A. Sloane (njas(AT)research.att.com).