login
Primes p such that abs(A077039(A049084(p))) <= p.
3

%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