A362984 Decimal expansion of the asymptotic mean of the abundancy index of the powerful numbers (A001694).
2, 1, 4, 9, 6, 8, 6, 9, 0, 3, 0, 1, 5, 2, 6, 7, 6, 5, 1, 2, 8, 2, 1, 9, 0, 4, 2, 1, 0, 5, 1, 0, 9, 4, 1, 6, 1, 4, 5, 9, 8, 7, 6, 5, 3, 2, 7, 5, 1, 0, 0, 9, 9, 9, 8, 7, 3, 2, 7, 3, 3, 4, 3, 7, 8, 9, 7, 6, 2, 7, 1, 7, 9, 4, 0, 3, 6, 4, 2, 3, 6, 5, 7, 4, 2, 7, 4, 2, 3, 7, 7, 1, 7, 0, 2, 4, 2, 2, 8, 9, 7, 3, 8, 6, 2
Offset: 1
Examples
2.14968690301526765128219042105109416145987653275100999873...
Links
- Rafael Jakimczuk and Matilde Lalín, Asymptotics of sums of divisor functions over sequences with restricted factorization structure, Notes on Number Theory and Discrete Mathematics, Vol. 28, No. 4 (2022), pp. 617-634, eq. (6).
Crossrefs
Programs
-
Mathematica
$MaxExtraPrecision = 1000; m = 1000; c = LinearRecurrence[{2, -3, 4, -6, 7, -7, 7, -6, 5, -3, 2, -1}, {0, 0, 0, 4, 5, 6, 0, -12, -9, -5, 0, 22}, m]; RealDigits[(2^4 + 2^2 + 2^(3/2) - 1)/(2^4 - 2)*(3^4 + 3^2 + 3^(3/2) - 1)/(3^4 - 3) * Exp[NSum[Indexed[c, n]*(PrimeZetaP[n/2] - 1/2^(n/2) - 1/3^(n/2))/n, {n, 4, m}, NSumTerms -> m, WorkingPrecision -> m]], 10, 120][[1]]
-
PARI
prodeulerrat((p^8 + p^4 + p^3 - 1)/(p^8 - p^2), 1/2)
Comments