Location via proxy:   [ UP ]  
[Report a bug]   [Manage cookies]                

Revision History for A343520

(Bold, blue-underlined text is an addition; faded, red-underlined text is a deletion.)

Showing entries 1-10 | older changes
a(n) = Sum_{1 <= x_1 <= x_2 <= x_3 <= x_4 <= x_5 <= x_6 <= n} gcd(x_1, x_2, x_3 , x_4, x_5, x_6, n).
(history; published version)
#16 by Vaclav Kotesovec at Sun May 23 08:44:21 EDT 2021
STATUS

editing

approved

#15 by Vaclav Kotesovec at Sun May 23 08:44:18 EDT 2021
LINKS

Vaclav Kotesovec, <a href="/A343520/b343520.txt">Table of n, a(n) for n = 1..10000</a>

STATUS

approved

editing

#14 by Vaclav Kotesovec at Sun May 23 08:05:09 EDT 2021
STATUS

editing

approved

#13 by Vaclav Kotesovec at Sun May 23 08:05:04 EDT 2021
FORMULA

Sum_{k=1..n} a(k) ~ Pi^6 * n^7 / (4762800*zeta(7)). - Vaclav Kotesovec, May 23 2021

STATUS

approved

editing

#12 by Michel Marcus at Sun Apr 18 07:35:40 EDT 2021
STATUS

reviewed

approved

#11 by Joerg Arndt at Sun Apr 18 03:12:30 EDT 2021
STATUS

proposed

reviewed

#10 by Amiram Eldar at Sun Apr 18 02:07:54 EDT 2021
STATUS

editing

proposed

#9 by Amiram Eldar at Sun Apr 18 02:07:52 EDT 2021
MATHEMATICA

a[n_] := DivisorSum[n, EulerPhi[n/#] * Binomial[# + 5, 6] &]; Array[a, 50] (* Amiram Eldar, Apr 18 2021 *)

STATUS

proposed

editing

#8 by Amiram Eldar at Sun Apr 18 01:55:38 EDT 2021
STATUS

editing

proposed

#7 by Amiram Eldar at Sun Apr 18 01:55:36 EDT 2021
MATHEMATICA

a[n_] := DivisorSum[n, EulerPhi[n/#]*Binomial[# + 5, 6] &]; Array[a, 50] (* Amiram Eldar, Apr 18 2021 *)

STATUS

proposed

editing