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 A136072 #16 Nov 30 2015 14:55:14
%S A136072 41,83,97,139,167,223,293,307,419,433,503,587,727,769,797,1049,1063,
%T A136072 1217,1259,1399,1483,1567,1609,1637,1693,1847,1889,1973,1987,2477,
%U A136072 2617,2659,2687,2729,2939,2953,3023,3037,3079,3359,3499,3527,3793,3947,3989
%N A136072 Father primes of order 3.
%C A136072 Primes of the form 7p+6 where p is prime. - _David Radcliffe_, Nov 30 2015
%H A136072 Robert Israel, <a href="/A136072/b136072.txt">Table of n, a(n) for n = 1..10000</a>
%p A136072 select(t -> isprime(t) and isprime((t-6)/7), [seq(i,i=13..10000, 14)]); # _Robert Israel_, Nov 30 2015
%t A136072 n = 3; a = {}; Do[If[PrimeQ[(Prime[k] - 2n)/(2n + 1)], AppendTo[a, Prime[k]]], {k, 1, 1500}]; a
%Y A136072 For smallest father primes of order n see A136026 (also definition). For father primes of order 1 see A094524. For father primes of order 2 see A136071.
%Y A136072 Cf. A023208, A094524, A136019, A136020, A136026, A136027, A136071, A136073, A136074, A136075, A136076, A136077, A136078, A136079, A136080.
%K A136072 nonn
%O A136072 1,1
%A A136072 _Artur Jasinski_, Dec 12 2007
%E A136072 Typo in Mathematica program fixed by _David Radcliffe_, Nov 30 2015