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 A072468 #3 Dec 05 2013 19:55:20 %S A072468 2,5,19,53,151,211,463,673,1009,1231,2179,2593,3823,4649,5821,6977, %T A072468 9283,10369,14479,15901,18397,20549,25301,27073,32251,35569,40879, %U A072468 44017,53419,55681,66713,72577,80191,87041,97441,101341,116329,123653 %N A072468 Leading diagonal of triangle in A072467. %t A072468 a = {2}; k = 3; Do[i = 1; While[i < n + 1, If[ PrimeQ[k] && Mod[k, n] == 1, a = Append[a, k]; i++ ]; k++ ], {n, 2, 40}]; Table[ a[[n(n + 1)/2]], {n, 1, 40}] %Y A072468 Cf. A072467, A072469. %K A072468 nonn %O A072468 1,1 %A A072468 _Amarnath Murthy_, Jun 19 2002 %E A072468 Edited by _Robert G. Wilson v_, Jun 28 2002