cp's OEIS Frontend

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.

A110673 Numbers that are neither the sum nor the difference of two primes.

This page as a plain text file.
%I A110673 #41 Jun 12 2024 17:06:21
%S A110673 23,37,47,53,67,79,83,89,93,97,113,117,119,121,123,127,131,143,145,
%T A110673 157,163,167,173,185,187,203,205,207,211,215,217,219,223,233,245,247,
%U A110673 251,257,263,277,287,289,293,297,299,301,303,307,317,321,323,325,327,331
%N A110673 Numbers that are neither the sum nor the difference of two primes.
%C A110673 The sequence is obtained by interleaving A099019 and A134797. From Goldbach's conjecture, apparently all terms are odd. - _Bob Selcoe_, Mar 10 2015
%C A110673 Intersection of A007921 and A014092. - _Michel Marcus_, Mar 16 2015
%H A110673 Michel Marcus, <a href="/A110673/b110673.txt">Table of n, a(n) for n = 1..7596</a>
%H A110673 Oliver Knill, <a href="https://arxiv.org/abs/1606.05958">Goldbach for Gaussian, Hurwitz, Octavian and Eisenstein primes</a>, arXiv preprint arXiv:1606.05958 [math.NT], 2016.
%H A110673 Wikipedia, <a href="http://en.wikipedia.org/wiki/Goldbach%27s_conjecture">Goldbach's conjecture</a>
%t A110673 Lim=331; nn=PrimePi[Lim+1]; (* Lim is upper limit of sequence; nn is range of primes to consider *)
%t A110673 dif=Union[Flatten[Differences/@Subsets[Prime[Range[nn]],{2}]]]; (* differences of two primes *)
%t A110673 sum=Union[Join[Flatten[Total/@Subsets[Prime[Range[nn]],{2}]],Table[2*Prime[n], {n, nn}]]];seq2; (* sums of two primes *)
%t A110673 Complement[Range[Lim],dif,sum] (* neither sum nor difference *) (* _James C. McMahon_, Jun 10 2024 *)
%Y A110673 Cf. A007921 (not the difference), A014092 (not the sum).
%Y A110673 Cf. also A099019, A134797.
%K A110673 easy,nonn
%O A110673 1,1
%A A110673 _Eric Angelini_, Sep 14 2005
%E A110673 Corrected and extended by _Joshua Zucker_, May 04 2006
%E A110673 Offset corrected by _Arkadiusz Wesolowski_, May 19 2012