This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A077040 #9 Jul 13 2013 12:02:52 %S A077040 2,3,5,7,13,17,19,29,31,37,43,47,53,59,61,67,73,97,101,103,109,113, %T A077040 127,137,149,157,181,193,197,199,281,293,317,337,349,353,359,373,397, %U A077040 401,419,431,439,443,449,467,479,617,677,709,773,797,809,811,821,823,829 %N A077040 Primes p such that abs(A077039(A049084(p))) <= p. %H A077040 Reinhard Zumkeller, <a href="/A077040/b077040.txt">Table of n, a(n) for n = 1..1000</a> %o A077040 (Haskell) %o A077040 import Data.List (findIndices) %o A077040 a077040 n = a077040_list !! (n-1) %o A077040 a077040_list = map (a000040 . (+ 1)) $ findIndices (<= 0) $ %o A077040 zipWith (\s p -> abs s - p) a077039_list a000040_list %o A077040 -- _Reinhard Zumkeller_, Feb 28 2012 %Y A077040 Cf. A077041, A073579, A007504, A000040. %K A077040 nonn %O A077040 1,1 %A A077040 _Reinhard Zumkeller_, Oct 21 2002