A129592 The smallest in a triple of three consecutive primes such that the ceiling of the square root of their sums-of-squares is prime.
2, 7, 13, 43, 53, 59, 127, 241, 271, 317, 331, 349, 367, 439, 487, 491, 607, 659, 719, 733, 757, 773, 821, 857, 881, 929, 971, 1087, 1193, 1259, 1289, 1303, 1409, 1427, 1453, 1607, 1663, 1693, 1723, 1747, 1789, 1949, 2053, 2087, 2089, 2131, 2251, 2333, 2393, 2467, 2549, 2633, 2671, 2719
Offset: 1
Keywords
Examples
Take 13,17,19 with summed squares 169 + 289 + 361 = 819 = A133529(6). The square root is approximately 28.6 and rounding up to 29 yields a prime, so 13 is a term.
Programs
-
Mathematica
Select[Partition[Prime[Range[400]],3,1],PrimeQ[Ceiling[ Sqrt[ Total[ #^2]]]]&][[All,1]] (* Harvey P. Dale, Feb 05 2019 *)
Formula
Extensions
Edited and extended by R. J. Mathar, Jul 10 2011
Comments