%I #19 Dec 17 2023 18:41:05
%S 1,1,1,3,1,1,1,2,2,1,1,1,1,4,2,1,1,1,2,2,1,3,1,3,1,1,1,2,2,1,2,1,1,2,
%T 1,2,1,1,4,1,3,3,4,5,1,1,1,2,3,2,1,1,10,4,1,1,6,1,2,5,1,1,1,2,3,1,4,1,
%U 2,1,2,1,1,4,4,1,1,2,3,7,1,6,1,2,2,2
%N Least k such that 6*n*k+1 is a prime.
%H Robert Price, <a href="/A368202/b368202.txt">Table of n, a(n) for n = 1..5000</a>
%t A368202 = {};
%t Do[k=1; While[!PrimeQ[9 n k+1], k++]; AppendTo[A368202, k], {n, 86}];
%t A368202
%o (PARI) a(n) = my(k=1); while (!isprime(6*n*k+1), k++); k; \\ _Michel Marcus_, Dec 16 2023
%Y Cf. A016014, A024899.
%Y A070850 lists the corresponding primes.
%K nonn
%O 1,4
%A _Robert Price_, Dec 16 2023
|