%I A133261
%S A133261 3,7,13,19,23,31,37,43,47,53,61,67,73,83,89,97,103,109,113,131,139,151,
%T A133261 157,167,173,181,193,199,211,223,229,233,241,251,257,263,271,277,283,
%U A133261 293,307,313,317,337,349,353,359,367,373,383,389,401,409,421,433,443
%N A133261 Union of A134196 and A134197 : A126990 with duplicates removed.
%t A133261 << NumberTheory`NumberTheoryFunctions` a = {}; Do[AppendTo[a, PreviousPrime[Sqrt[(Prime[ 
               x - 1])*(Prime[x + 1])]]], {x, 2, 300}]; Union[a]
%Y A133261 Cf. A134196, A134197, A126990.
%Y A133261 Sequence in context: A038978 A133387 A105399 this_sequence A113911 A051635 
               A136009
%Y A133261 Adjacent sequences: A133258 A133259 A133260 this_sequence A133262 A133263 
               A133264
%K A133261 nonn
%O A133261 1,1
%A A133261 Artur Jasinski (grafix(AT)csl.pl), Oct 15 2007