%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