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 A078863 #6 Oct 15 2013 22:31:47
%S A078863 7,13,19,37,43,67,79,97,103,109,127,349,163,379,397,193
%N A078863 Smallest primes from A029710, each belonging to those different residue class of mod 210 which are listed in A078860. Arranged according to possible least positive residues mod 210.
%e A078863 Several terms are equal to corresponding ones in A078860, while others are larger like: 397=210.1+187 where r=187 is in A078860.
%t A078863 f[x_] := Mod[Prime[x], 210] d[x_] := Prime[x+1]-Prime[x] t=Table[0, {210}]; Do[s=f[n]; If[Equal[d[n], 4]&&s<211&&t[[s]]==0, t[[s]]=Prime[n]], {n, 1, 10000}]; t
%Y A078863 Cf. A031924, A008364, A078860, A078859-A078864.
%K A078863 fini,full,nonn
%O A078863 1,1
%A A078863 _Labos Elemer_, Dec 13 2002