A330487 Sum of those x(p)*y(p) with p <= n, where p is a prime congruent to 1 modulo 4, and p = x(p)^2 + y(p)^2 with 1 <= x(p) <= y(p).
0, 0, 0, 0, 2, 2, 2, 2, 2, 2, 2, 2, 8, 8, 8, 8, 12, 12, 12, 12, 12, 12, 12, 12, 12, 12, 12, 12, 22, 22, 22, 22, 22, 22, 22, 22, 28, 28, 28, 28, 48, 48, 48, 48, 48, 48, 48, 48, 48, 48, 48, 48, 62, 62, 62, 62, 62, 62, 62, 62, 92, 92, 92, 92, 92, 92, 92, 92, 92, 92, 92, 92, 116, 116, 116, 116, 116, 116, 116, 116
Offset: 1
Keywords
Examples
a(5) = 2 since 5 is the first prime congruent to 1 mod 4 and 5 = 1^2 + 2^2 with 1*2 = 2. a(13) = 8 since 13 = 2^2 + 3^2 is the second prime congruent to 1 mod 4 and 1*2 + 2*3 = 8.
Links
- Zhi-Wei Sun, Table of n, a(n) for n = 1..10000
- Zhi-Wei Sun, A mysterious connection between prime and Pi, Question 348448 at MathOverFlow, December 15, 2019.
- Zhi-Wei Sun, New series for powers of Pi and related congruences, arXiv:1911.05456 [math.NT], 2019.
Programs
-
Mathematica
tab={};Do[m=0;Do[If[PrimeQ[(2x+1)^2+(2y)^2],m=m+(2x+1)*(2y)],{x,0,(Sqrt[n]-1)/2},{y,1,Sqrt[n-(2x+1)^2]/2}];tab=Append[tab,m],{n,1,80}];Print[tab]
Comments