|
%I #10 Sep 17 2019 10:31:32
%S 1,1,1,1,2,1,1,4,3,2,4,2,4,1,3,7,2,2,5,10,1,2,1,8,1,5,10,2,12,3,5,8,2,
%T 5,2,4,2,3,2,1,4,5,2,1,1,4,14,1,1,10,8,7,9,2,1,1,2,4,1,5,1,10,5,7,1,3,
%U 3,8,12,3,7,9,5,1,7,1,4,3,2,4,4,12,4,2,8,7,8,1,8,7,2,2,2,2,4,22,4,2,10,3,3
%N Least k such that 6*k*prime(n)^2 -1 is prime, where prime(i)=i-th prime.
%t Table[k = 1; While[ ! PrimeQ[6*k*Prime[n]^2 - 1], k++ ]; k, {n, 102}] (* _Ray Chandler_, Oct 08 2005 *)
%Y Cf. A112745, A112746.
%K nonn
%O 1,5
%A _Pierre CAMI_, Sep 18 2005
%E Extended by _Ray Chandler_, Oct 08 2005
|
