%I #9 Jul 13 2013 12:02:52
%S 2,3,5,7,13,17,19,29,31,37,43,47,53,59,61,67,73,97,101,103,109,113,
%T 127,137,149,157,181,193,197,199,281,293,317,337,349,353,359,373,397,
%U 401,419,431,439,443,449,467,479,617,677,709,773,797,809,811,821,823,829
%N Primes p such that abs(A077039(A049084(p))) <= p.
%H Reinhard Zumkeller, <a href="/A077040/b077040.txt">Table of n, a(n) for n = 1..1000</a>
%o (Haskell)
%o import Data.List (findIndices)
%o a077040 n = a077040_list !! (n-1)
%o a077040_list = map (a000040 . (+ 1)) $ findIndices (<= 0) $
%o zipWith (\s p -> abs s - p) a077039_list a000040_list
%o -- _Reinhard Zumkeller_, Feb 28 2012
%Y Cf. A077041, A073579, A007504, A000040.
%K nonn
%O 1,1
%A _Reinhard Zumkeller_, Oct 21 2002