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 A125767 #4 Mar 30 2012 18:40:42
%S A125767 2,3,2,3,29,5,41,7,53,11,67,11,79,13,89,17,101,17,113,19,127,23,137,
%T A125767 23,149,79,163,29,173,29,311,31,197,101,211,37,223,37,233,41,409,41,
%U A125767 257,43,269,47,281,47,293,149,307,53,317,53,331,167,569,59,353,59,367,61,379
%N A125767 Least prime of the form n*T_i +/-1, where T is a triangular number.
%t A125767 f[n_] := Block[{k = 1, s = {}, trnglr}, While[s == {}, trnglr = n*k(k + 1)/2; If[PrimeQ[trnglr - 1], AppendTo[s, trnglr - 1]]; If[PrimeQ[trnglr + 1], AppendTo[s, trnglr + 1]]; k++ ]; s[[1]]]; Array[f, 63]
%Y A125767 Cf. A000217, A125765, A125766, A125768, A125769.
%K A125767 nonn
%O A125767 1,1
%A A125767 _Jonathan Vos Post_ & _Robert G. Wilson v_, Dec 01 2006