[go: up one dir, main page]

login
Revision History for A238534 (Bold, blue-underlined text is an addition; faded, red-underlined text is a deletion.)

Showing entries 1-10 | older changes
Number of solutions to gcd(u^2 + v^2 + w^2 + x^2 + y^2 + z^2, n) = 1 with u, v, w, x, y, z in [0,n-1].
(history; published version)
#52 by Joerg Arndt at Tue Feb 13 02:19:41 EST 2024
STATUS

reviewed

approved

#51 by Michel Marcus at Tue Feb 13 01:33:52 EST 2024
STATUS

proposed

reviewed

#50 by Amiram Eldar at Tue Feb 13 01:18:43 EST 2024
STATUS

editing

proposed

#49 by Amiram Eldar at Tue Feb 13 00:50:53 EST 2024
LINKS

Catalina Calderón, Jose Maria Grau, A. Oller-Marcén, and László Tóth, <a href="http://dx.doi.org/10.5486/PMD.2015.7098">Counting invertible sums of squares modulo n and a new generalization of Euler's totient function</a>, Publicationes Mathematicae-Debrecen, Vol. 87 (1-2) (2015), pp. 133-145; <a href="https://arxiv.org/abs/1403.7878">arXiv preprint</a>, arXiv:1403.7878 [math.NT], 2014.

#48 by Amiram Eldar at Tue Feb 13 00:46:32 EST 2024
LINKS

C. Catalina Calderón, J. M. Jose Maria Grau, and A. Oller-Marcén, and László Tóth, <a href="http://arxivdx.doi.org/abs10.5486/1403PMD.2015.78787098">Counting invertible sums of squares modulo n and a new generalization of Euler 's totient function</a>, Publicationes Mathematicae-Debrecen, Vol. 87 (2015), pp. 133-145; <a href="https://arxiv.org/abs/1403.7878">arXiv preprint</a>, arXiv:1403.7878 [math.NT], 2014.

C. Calderón, J. M. Grau, and A. Oller-Marcén, <a href="http://publi.math.unideb.hu/contents.php?szam=87">Counting invertible sums of squares modulo n and a new generalization of Euler totient function</a>, Publicationes mathematicae 87(1-2) (2015), 133-145.

FORMULA

From Amiram Eldar, Feb 13 2024: (Start)

Dirichlet g.f.: zeta(s-6) * (1 - 1/2^(s-5)) * Product_{p prime > 2} (1 - 1/p^(s-5) - (-1)^(3*(p-1)/2)*(p-1)/p^(s-2)).

Sum_{k=1..n} a(k) = c * n^7 + O(n^6 * log(n)), where c = (3/28) * Product_{p prime == 1 (mod 4)} (1 - 1/p^2 - 1/p^4 + 1/p^5) * Product_{p prime == 3 (mod 4)} (1 - 1/p^2 + 1/p^4 - 1/p^5) = 0.08756841635... (Calderón et al., 2015). (End)

STATUS

approved

editing

#47 by Michael De Vlieger at Thu Sep 07 23:35:11 EDT 2023
STATUS

reviewed

approved

#46 by Vaclav Kotesovec at Thu Sep 07 17:08:03 EDT 2023
STATUS

proposed

reviewed

#45 by Amiram Eldar at Thu Sep 07 02:32:28 EDT 2023
STATUS

editing

proposed

Discussion
Thu Sep 07
13:05
Michel Marcus: I get {1,32,0,2048,12400,0, ... ???
13:17
Amiram Eldar: Please clear the memory from previous programs and try again. My code is fine.
17:08
Vaclav Kotesovec: This is an annoying property of Mathematica, Clear[f] needs to be put at the beginning. The prevailing opinion in OEIS is not to add it there, but I always use it in my private programs.
#44 by Amiram Eldar at Thu Sep 07 02:24:04 EDT 2023
MATHEMATICA

f[p_, e_] := (p - 1)*p^(6*e - 4)*(p^3 - (-1)^(3*(p - 1)/2)); f[2, e_] := 2^(6*e - 1); a[1] = 1; a[n_] := Times @@ f @@@ FactorInteger[n]; Array[a, 30] (* Amiram Eldar, Sep 07 2023 *)

KEYWORD

nonn,easy,mult

STATUS

approved

editing

#43 by Peter Luschny at Sat Dec 21 18:19:03 EST 2019
STATUS

reviewed

approved