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

Author

Artur Jasinski, Oct 15 2007

Keywords

• nonn

Crossrefs

Cf. A134196, A134197, A126990.

Programs

Mathematica

<< NumberTheory`NumberTheoryFunctions` a = {}; Do[AppendTo[a, PreviousPrime[Sqrt[(Prime[ x - 1])*(Prime[x + 1])]]], {x, 2, 300}]; Union[a]