Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).
%I #21 Oct 21 2020 22:51:41
%S 5,7,11,17,19,29,31,41,47,59,61,67,71,89,97,101,127,137,139,151,167,
%T 179,181,227,229,239,251,257,269,271,281,337,347,367,389,397,409,419,
%U 421,431,449,479,487,491,557,587,601,607,631,641,647,727,739,757,761,809
%N Primes p such that p and p+12 are nonconsecutive primes.
%C This sequence differs from A046133 because here the terms of A031930 are missing.
%C Complement of a=A031930 with respect to b=A046133: [b] & [not a]: this and A031930 are disjoint, but A031930 is a proper subset of A046133.
%H Jonathan Frech, <a href="/A086136/b086136.txt">Table of n, a(n) for n = 1..1000</a>
%e First two deviations from A046133 are that 199=A031930(1) and 211=A031930(2) are missing. First 20 terms are equal.
%t Do[s=Prime[n]; s1=Prime[n+1]; If[PrimeQ[s+d]&& !Equal[s1-s, d], Print[s]], {n, 1, 1000}]; d=12
%t ncpQ[n_]:=Module[{c=n+12},PrimeQ[c]&&NextPrime[n]!=c]; Select[Prime[ Range[ 150]],ncpQ] (* _Harvey P. Dale_, May 03 2012 *)
%Y Cf. A031930, A046133.
%K nonn
%O 1,1
%A _Labos Elemer_, Jul 28 2003