A077041 Primes p such that abs(A077039(A049084(p))) > p.

11, 23, 41, 71, 79, 83, 89, 107, 131, 139, 151, 163, 167, 173, 179, 191, 211, 223, 227, 229, 233, 239, 241, 251, 257, 263, 269, 271, 277, 283, 307, 311, 313, 331, 347, 367, 379, 383, 389, 409, 421, 433, 457, 461, 463, 487, 491, 499, 503, 509, 521, 523, 541

Offset

1,1

Links

Reinhard Zumkeller, Table of n, a(n) for n = 1..10000

Prog

(Haskell)
import Data.List (findIndices)
a077041 n = a077041_list !! (n-1)
a077041_list = map (a000040 . (+ 1)) $ findIndices (> 0) $
   zipWith (\s p -> abs s - p) a077039_list a000040_list
-- Reinhard Zumkeller, Feb 28 2012

Crossrefs

Cf. A077040, A073579, A007504, A000040.

Sequence in context: A086524 A060915 A052034 * A190797 A068842 A357364

Adjacent sequences: A077038 A077039 A077040 * A077042 A077043 A077044

Keyword

nonn

Author

Reinhard Zumkeller, Oct 21 2002

Status

approved