login
A077041
Primes p such that abs(A077039(A049084(p))) > p.
3
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
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
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Oct 21 2002
STATUS
approved