cp's OEIS Frontend

A185154 Smallest prime p such that a nonconsecutive prime q exists with A157996(n) = p + q + 1.

%I A185154 #10 Jul 13 2013 12:03:47
%S A185154 3,3,5,3,5,7,5,3,5,3,5,5,7,5,3,5,5,3,5,7,3,5,3,5,3,13,3,5,7,11,11,5,5,
%T A185154 3,5,5,7,11,11,3,5,11,11,3,5,3,5,7,11,5,5,5,7,5,3,5,11,13,3,5,3,13,5,
%U A185154 29,11,3,5,7,5,5,3,5,7,3,7,17,11,11,11,5,3
%N A185154 Smallest prime p such that a nonconsecutive prime q exists with A157996(n) = p + q + 1.
%C A185154 A010051(A157996(n) - a(n) - 1) = 1.
%H A185154 Reinhard Zumkeller, <a href="/A185154/b185154.txt">Table of n, a(n) for n = 1..10000</a>
%o A185154 (Haskell)
%o A185154 import Data.Maybe (catMaybes)
%o A185154 a185154 n = a185154_list !! (n-1)
%o A185154 a185154_list = catMaybes $ map f a006093_list where
%o A185154    f x = g $ takeWhile (< x) a065091_list where
%o A185154      g []  = Nothing
%o A185154      g [_] = Nothing
%o A185154      g (p:ps@(_:qs)) | (x - p) `elem` qs = Just p
%o A185154                      | otherwise         = g ps
%Y A185154 Cf. A065091, A006093.
%K A185154 nonn
%O A185154 1,1
%A A185154 _Reinhard Zumkeller_, Mar 12 2012