login
Least k such that 3*(6*n)^k + 1 is prime.
1

%I #9 Jul 28 2015 05:53:54

%S 1,1,3,1,3,1,1,3,1,1,1,14,2,2,1,3,1,270,12,2,1,1,8,1,3,2,1,2,1,1,12,1,

%T 11,1,1,2,2,12,3,2,1,1,8,2,1,1,2,3,1,2,1,1,11,3,1,1,14,2,1,16,24,1,4,

%U 1,1,3,9,3,66,4,1,1,3,6,3,3,2,7,1,3,1,156,3,2,1,1,1,12,77,1,5,1,20,1,3,2

%N Least k such that 3*(6*n)^k + 1 is prime.

%F a(A111094(n)) = 1. - _Michel Marcus_, Jul 28 2015

%t f[n_] := Block[{k = 1}, While[ !PrimeQ[3*((6*n)^k) + 1], k++ ]; k]; Table[ f[n], {n, 96}] (* _Robert G. Wilson v_, Oct 21 2004 *)

%Y Cf. A098876, A111094.

%K nonn

%O 1,3

%A _Pierre CAMI_, Oct 13 2004

%E More terms from _Robert G. Wilson v_, Oct 21 2004