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 A172407 #10 Jul 12 2014 22:47:51
%S A172407 1,3,7,9,13,19,21,27,31,33,37,43,49,51,57,61,63,69,73,79,87,91,93,97,
%T A172407 99,103,117,121,127,129,139,141,147,153,157,163,169,171,181,183,187,
%U A172407 189,201,213,217,219,223,229,231,241,247,253,259,261,267,271,273,283,297
%N A172407 Positive numbers n such that n+10 is a prime.
%F A172407 a(n) = prime(n+4) - 10.
%F A172407 a(n) = binomial(prime(n+4)-3,3) mod prime(n+4), (Empirical). - _Gary Detlefs_, Jul 10 2014
%e A172407 a(1) = 1 because 1+10 = 11 = prime.
%p A172407 A172407:=n->ithprime(n+4)-10: seq(A172407(n), n=1..50); # _Wesley Ivan Hurt_, Jul 10 2014
%t A172407 Table[Prime[n + 4] - 10, {n, 50}] (* or *)
%t A172407 Prime[Range[50] + 4] - 10 (* _Wesley Ivan Hurt_, Jul 10 2014 *)
%Y A172407 Cf. A000040.
%K A172407 nonn
%O A172407 1,2
%A A172407 _Juri-Stepan Gerasimov_, Feb 01 2010