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 A077041 #9 Jul 13 2013 12:02:52 %S A077041 11,23,41,71,79,83,89,107,131,139,151,163,167,173,179,191,211,223,227, %T A077041 229,233,239,241,251,257,263,269,271,277,283,307,311,313,331,347,367, %U A077041 379,383,389,409,421,433,457,461,463,487,491,499,503,509,521,523,541 %N A077041 Primes p such that abs(A077039(A049084(p))) > p. %H A077041 Reinhard Zumkeller, <a href="/A077041/b077041.txt">Table of n, a(n) for n = 1..10000</a> %o A077041 (Haskell) %o A077041 import Data.List (findIndices) %o A077041 a077041 n = a077041_list !! (n-1) %o A077041 a077041_list = map (a000040 . (+ 1)) $ findIndices (> 0) $ %o A077041 zipWith (\s p -> abs s - p) a077039_list a000040_list %o A077041 -- _Reinhard Zumkeller_, Feb 28 2012 %Y A077041 Cf. A077040, A073579, A007504, A000040. %K A077041 nonn %O A077041 1,1 %A A077041 _Reinhard Zumkeller_, Oct 21 2002