|
%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
|
