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,1

Links

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

Prog

(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

Crossrefs

Cf. A077041, A073579, A007504, A000040.

Sequence in context: A134204 A134207 A133244 * A153503 A049587 A293008

Adjacent sequences: A077037 A077038 A077039 * A077041 A077042 A077043

Keyword

nonn

Author

Reinhard Zumkeller, Oct 21 2002

Status

approved