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 A176986 #14 Jan 23 2020 09:22:14 %S A176986 3,4,6,8,10,19,25,30,50,62,63,79,80,85,112,117,120,127,131,140,145, %T A176986 149,159,175,177,217,235,261,264,289,303,309,319,320,333,335,373,382, %U A176986 394,401,402,410,436,442,446,456,462,469,471,476,477,487,513,525,527,537 %N A176986 Numbers k such that the k-th sum of two successive primes is a twin prime average. %H A176986 Amiram Eldar, <a href="/A176986/b176986.txt">Table of n, a(n) for n = 1..10000</a> %F A176986 {k: A001043(k) in A014574}. %p A176986 A001043 := proc(n) ithprime(n)+ithprime(n+1) ; end proc: %p A176986 A014574 := proc(n) (A001359(n)+A006512(n))/2 ; end proc: %p A176986 isA014574 := proc(n) local k ; for k from 1 do av := A014574(k) ; if av> n then return false; elif av=n then return true; end if; end do; end proc: %p A176986 for n from 1 to 800 do if isA014574(A001043(n) ) then printf("%d,",n) ; end if; end do: # _R. J. Mathar_, Apr 30 2010 %Y A176986 Cf. A001043, A001359, A014574. %K A176986 nonn %O A176986 1,1 %A A176986 _Juri-Stepan Gerasimov_, Apr 30 2010 %E A176986 Corrected (95 replaced by 85, 394 inserted) and extended by _R. J. Mathar_, Apr 30 2010