|
%I #39 Jun 03 2014 17:50:38
%S 2,6,6,12,12,18,12,30,6,30,12,30,12,6,30,12,30,12,30,36,72,12,30,60,
%T 48,30,18,24,18,150,12,6,30,24,138,12,18,12,30,60,78,48,12,12,18,108,
%U 24,30,6,120,12,48,30,24,66,84,6,54,18,48,30,54,6,24,18,12,96,30,42,30,42
%N Distance between the smaller members of successive twin prime pairs.
%C Conjecture: a(n) < log(A014574(n))^3 for n > 2. - _Thomas Ordowski_, Jul 21 2012
%C This is of course also the distance between the larger members of successive twin primes. - _Franklin T. Adams-Watters_, Jun 03 2014
%H M. F. Hasler, <a href="/A053319/b053319.txt">Table of n, a(n) for n = 1..107406</a>
%t Differences[Transpose[Select[Partition[Prime[Range[450]],2,1],Last[#]-First[#]==2&]][[1]]] (* _Harvey P. Dale_, Feb 08 2011 *)
%o (PARI) {cnt=0; lp= /*last*/ ltp=/*last twin(upper)*/ 5;
%o forprime(p=lp+1,default(primelimit), if(p-lp != 2,lp=p;next);
%o write("b053319.txt",cnt++" "p-ltp);/* print1(p-ltp", ");*/ ltp=lp=p)} \\ _M. F. Hasler_, May 26 2007
%Y First differences of A001359, A006512, and of A014574.
%K nonn
%O 1,1
%A _Labos Elemer_, Mar 06 2000
%E Definition clarified by _Harvey P. Dale_, Feb 08 2011
|
