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

Author

Reinhard Zumkeller, Oct 21 2002

Keywords

• nonn

Links

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

Crossrefs

Cf. A077040, A073579, A007504, A000040.

Programs

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