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 A276069 #6 Nov 22 2016 21:22:35
%S A276069 1,2,16,26,64,97,107,122,146,167,194,391,451,496,707,856,958
%N A276069 Zero terms of A276034.
%C A276069 It is conjectured that this sequence is finite and all terms are found.
%e A276069 A276034(1)=0, so a(1)=1;
%e A276069 A276034(2)=0, so a(2)=2;
%e A276069 next,
%e A276069 A276034(16)=0, so a(3)=16.
%t A276069 p = 3; sp = {p}; k = 0; Table[While[k++; m = 2*k; l = Length[sp]; While[sp[[l]] < m, While[p = NextPrime[p]; cp = 2*3^(Floor[Log[3, 2*p - 1]]) - p; ! PrimeQ[cp]]; AppendTo[sp, p]; l++]; ct = 0; Do[If[(2*sp[[i]] <= m) && (MemberQ[sp, m - sp[[i]]]), ct++], {i, 1, l}]; ct > 0]; k, {n, 1, 17}]
%Y A276069 Cf. A276034.
%K A276069 nonn,easy,fini,full
%O A276069 1,2
%A A276069 _Lei Zhou_, Nov 15 2016