A129388 Primes that are equal to the mean of 5 consecutive squares.
11, 83, 227, 443, 1091, 1523, 2027, 3251, 6563, 9803, 11027, 12323, 13691, 15131, 21611, 29243, 47963, 50627, 56171, 59051, 62003, 65027, 74531, 88211, 91811, 95483, 103043, 119027, 123203, 131771, 136163, 140627, 149771, 173891, 178931
Offset: 1
Examples
11 = (1^2 + ... + 5^2)/5; 83 = (7^2 + ... + 11^2)/5; 227 = (13^2 + ... + 17^2)/5.
Links
- Vincenzo Librandi, Table of n, a(n) for n = 1..1000
Programs
-
Magma
[a: n in [1..600] | IsPrime(a) where a is n^2 + 2*n + 3 ]; // Vincenzo Librandi, Mar 22 2013
-
Mathematica
Select[Table[n^2 + 2 n + 3, {n, 1, 600}], PrimeQ] (* Vincenzo Librandi, Mar 22 2013 *)
-
SageMath
A102305=[n^2+2*n+3 for n in range(1,1001)] [n^2+2*n+3 for n in (1..600) if is_prime(A102305[n-1])] # G. C. Greubel, Feb 03 2024
Comments