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 A090102 #5 Oct 15 2013 22:32:21
%S A090102 11,516811,20402952601,196260616589761,239536538008051,
%T A090102 426813020692661,2681027962124411,3605832801512401,6450361508166761,
%U A090102 10392841156929031,13162202092936411,13655671002023851,14501847401205811
%N A090102 Leading prime in each set of 7 arising in A090101.
%e A090102 a[15] = 69981018761651281 is first of following chain: {69981018761651281, 69981019944706811, 69981021127762351, 69981022310817901, 69981023493873461, 69981024676929031, 69981025859984611} = {P[k], P[k+1], ..., P[k+6]}, where k = A090101[15] and P[x] = 5x^2+5x+1. See A090562, A090563.
%t A090102 po[x_] := 5*x^2+5*x+1 Do[s=po[n];s0=po[n];s1=po[n+1];s2=po[n+2];s3=po[n+3];s4=po[n+4]; s5=po[n+5];s6=po[n+6];If[IntegerQ[n/100000], Print[{n}]]; If[PrimeQ[s0]&&PrimeQ[s1]&&PrimeQ[s2]&&PrimeQ[s3]&&PrimeQ[s4]&&PrimeQ[s5] &&PrimeQ[s6], Print[s0]], {n, 1, 120000000}]
%Y A090102 Cf. A090562, A090563, A090100, A090101, A056561.
%K A090102 nonn
%O A090102 1,1
%A A090102 _Labos Elemer_, Dec 15 2003