%I A112746
%S A112746 3,2,1,3,2,2,2,20,22,2,12,10,28,32,8,7,20,15,15,12,5,3,68,15,33,12,10,
               3,
%T A112746 23,28,130,8,13,32,38,7,57,3,25,3,8,18,77,12,65,22,18,18,2,10,18,30,110,
%U A112746 10,10,28,15,22,37,7,2,10,7,8,48,3,3,87,103,128,30,13,23,127,12,15,8,3
%N A112746 Least k such that 6*k*p(n)^2 -1 and 6*k*p(n)^2 +1 are twin primes where 
               p(i)=i-th prime.
%t A112746 Table[k = 1; While[c = 6*k*Prime[n]^2; ! PrimeQ[c - 1] || ! PrimeQ[c 
               + 1], k++ ]; k, {n, 80}] (*Chandler*)
%Y A112746 Cf. A112744, A112745.
%Y A112746 Sequence in context: A119910 A138034 A087818 this_sequence A107460 A152975 
               A128262
%Y A112746 Adjacent sequences: A112743 A112744 A112745 this_sequence A112747 A112748 
               A112749
%K A112746 nonn
%O A112746 1,1
%A A112746 Pierre CAMI (pierrecami(AT)tele2.fr), Sep 18 2005
%E A112746 Extended by Ray Chandler (rayjchandler(AT)sbcglobal.net), Oct 08 2005