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 A134650 #18 Jul 17 2025 12:32:19 %S A134650 5,8,12,18,52,100,946 %N A134650 Numbers that are the sum of two consecutive primes (i.e., in A001043) but are not the sum of two sums of two consecutive primes. %C A134650 Numbers in A001043 but not in A134651. %C A134650 Conjectured to be finite, may be complete. %C A134650 a(8), if it exists, is greater than 20100000. - _R. J. Mathar_, Jan 26 2008 %D A134650 R. K. Guy, ed., Unsolved Problems, Western Number Theory Meeting, Las Vegas, 1988. %p A134650 with(numtheory): Sset := {}: for i to 15000 do Sset := `union`(Sset, {ithprime(i) + ithprime(i + 1)}) od: Sset := convert(Sset, list): for n from 1 to nops(Sset) do count := 0: s := Sset[n]: for i from 1 to n do if member(s - Sset[i], Sset) and s-Sset[i] >= s/2 then count := count + 1 fi; od: if count = 0 then printf(`%d,`, Sset[n]) fi; od: # _James Sellers_, Jan 28 2008 %Y A134650 Cf. A001043, A134651, A135045. %K A134650 nonn,more %O A134650 1,1 %A A134650 _N. J. A. Sloane_, Jan 25 2008 %E A134650 946 found by _James Sellers_, Jan 25 2008