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

2, 3, 5, 7, 13, 17, 19, 29, 31, 37, 43, 47, 53, 59, 61, 67, 73, 97, 101, 103, 109, 113, 127, 137, 149, 157, 181, 193, 197, 199, 281, 293, 317, 337, 349, 353, 359, 373, 397, 401, 419, 431, 439, 443, 449, 467, 479, 617, 677, 709, 773, 797, 809, 811, 821, 823, 829

Offset: 1

Author

Reinhard Zumkeller, Oct 21 2002

Keywords

• nonn

Links

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

Crossrefs

Cf. A077041, A073579, A007504, A000040.

Programs

Haskell

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