A133261 Union of A134196 and A134197 : A126990 with duplicates removed.
3, 7, 13, 19, 23, 31, 37, 43, 47, 53, 61, 67, 73, 83, 89, 97, 103, 109, 113, 131, 139, 151, 157, 167, 173, 181, 193, 199, 211, 223, 229, 233, 241, 251, 257, 263, 271, 277, 283, 293, 307, 313, 317, 337, 349, 353, 359, 367, 373, 383, 389, 401, 409, 421, 433, 443
Offset: 1
Keywords
Programs
-
Mathematica
<< NumberTheory`NumberTheoryFunctions` a = {}; Do[AppendTo[a, PreviousPrime[Sqrt[(Prime[ x - 1])*(Prime[x + 1])]]], {x, 2, 300}]; Union[a]