This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A098877 #9 Jul 28 2015 05:53:54
%S A098877 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 A098877 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 A098877 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 A098877 Least k such that 3*(6*n)^k + 1 is prime.
%F A098877 a(A111094(n)) = 1. - _Michel Marcus_, Jul 28 2015
%t A098877 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 A098877 Cf. A098876, A111094.
%K A098877 nonn
%O A098877 1,3
%A A098877 _Pierre CAMI_, Oct 13 2004
%E A098877 More terms from _Robert G. Wilson v_, Oct 21 2004