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,1

Links

Table of n, a(n) for n=1..56.

Mathematica

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

Crossrefs

Cf. A134196, A134197, A126990.

Sequence in context: A336377 A133387 A105399 * A113911 A365241 A051635

Adjacent sequences: A133258 A133259 A133260 * A133262 A133263 A133264

Keyword

nonn

Author

Artur Jasinski, Oct 15 2007

Status

approved