%I #6 Oct 15 2013 22:32:01
%S 1,2,4,4,6,4,6,4,4,4,6,10,6,10,4,4,6,6,4,4,10,10,10,4,12,6,6,4,10,6,
%T 12,10,4,4,4,6,10,10,10,4,22,6,18,6,4,12,4,4,10,4,6,6,4,4,12,4,4,4,18,
%U 16,4,10,12,4,12,16,4,16,16,12,6,4,6,12,10,4,4,10,12,4,6,28,10,4,22,4,28,6
%N Difference between consecutive primes arising before difference (d=2) between twin primes. In A001223, terms before those ones which equal to two.
%H T. D. Noe, <a href="/A084290/b084290.txt">Table of n, a(n) for n = 1..10000</a>
%t t = {}; s = 1; Do[s1 = Prime[n] - Prime[n - 1]; If[Equal[s1, 2], AppendTo[t, s]]; s = s1, {n, 2, 1000}]; t
%Y Cf. A001223, A084291.
%K nonn
%O 1,2
%A _Labos Elemer_, May 26 2003