%I #10 Dec 30 2014 09:30:47
%S 5,7,13,17,23,29,41,67,83,97
%N Primes p for which some multiple k*p > 2*p appears before p does in A098550.
%C It is conjectured (see A098550) that there are no more terms of the sequence.
%C Corresponding indices in A098550 are {9, 15, 23, 30, 51, 61, 87, 142, 175, 204}; indices in A000040 are {3, 4, 6, 7, 9, 10, 13, 19, 23, 25}.
%C A098550(A098551(a(n)) - 2) / a(n) > 2. - _Reinhard Zumkeller_, Dec 30 2014
%o (Haskell)
%o a253297 n = a253297_list !! (n-1)
%o a253297_list = f a098550_list where
%o f (u:vs@(_:v:_)) = if a010051' v == 1 && div u v > 2
%o then v : f vs else f vs
%o -- _Reinhard Zumkeller_, Dec 30 2014
%Y Cf. A098550.
%Y Cf. A010051, A098551, A251239, A251541.
%K nonn
%O 1,1
%A _L. Edson Jeffery_, Dec 29 2014
|