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.

A273995 Even numbers with a unique representation as the difference of two primes, each of which is a member of a pair of twin primes, and one of which is smaller than the even number under consideration.

This page as a plain text file.
%I A273995 #28 Jul 14 2021 10:04:12
%S A273995 4,6,20,34,46,50,74,82,86,202,206,214,218,244,248,256,260,352,356,382,
%T A273995 386,454,472,476,524,562,604,608,664,668,724,728,772,776,982,986,1162,
%U A273995 1166,1192,1196,1552,1556,1672,1676,2872,2876,3082,3086,6232,6236,6892,6896
%N A273995 Even numbers with a unique representation as the difference of two primes, each of which is a member of a pair of twin primes, and one of which is smaller than the even number under consideration.
%C A273995 For the sequence to be infinite there must be an infinite number of twin prime pairs.
%C A273995 Can any even number n > 2 be so written (perhaps not uniquely) as the difference of two (unrelated) twins, one of which is smaller than n?  (T. S. Van Kortryk conjectures there are, if any, only a finite number of even integers such that this is not true.)
%e A273995 For even n with 4 <= n <= 100, all have at least one representation as the difference of two primes, each of which is a member of a pair of twin primes, but the following have only one such representation, and so belong to the sequence:
%e A273995      4 =   7 -  3
%e A273995      6 =  11 -  5
%e A273995     20 =  31 - 11
%e A273995     34 =  41 -  7
%e A273995     46 =  59 - 13
%e A273995     50 =  61 - 11
%e A273995     74 = 103 - 29
%e A273995     82 = 101 - 19
%e A273995     86 = 103 - 17
%o A273995 (PARI) istwin(p) = isprime(p+2) || isprime(p-2);
%o A273995 isok(n) = {my(nb = 0); forprime(p=3, n, if (isprime(n+p) && istwin(p) && istwin(n+p), nb++);); if (nb == 1, return (1));}
%o A273995 lista(nn) = forstep(n=4, nn, 2, if (isok(n), print1(n, ", "))); \\ _Michel Marcus_, Jun 07 2016
%Y A273995 Cf. A007534.
%K A273995 nonn
%O A273995 1,1
%A A273995 _Thomas Curtright_, Jun 06 2016
%E A273995 More terms from _Michel Marcus_, Jun 07 2016