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 A217892 #7 Oct 18 2014 14:59:40
%S A217892 1,5,13,47,59,109,241,335,1109,1373,1447,14893,37892,56543,185644,
%T A217892 649603,838441,8840101,16935761,100604513,118373279,270704167,
%U A217892 1355477231
%N A217892 Indices of records in A194591.
%C A217892 Record values are given by A194600.
%t A217892 a[n_]:= (k=0; While[!PrimeQ[n*2^k-1] && !PrimeQ[n*2^k+1], k++]; k); w = {1}; v = {0}; Do[If[a[n]>v[[-1]], AppendTo[v, a[n]]; Print[n]], {n, 1356000000}] (* Farideh Firoozbakht, Oct 16 2014 *)
%Y A217892 Cf. A194635, A194639
%K A217892 more,nonn
%O A217892 1,2
%A A217892 _Max Alekseyev_, Oct 14 2012
%E A217892 a(23)=A194639(22) from Wilfrid Keller, added by _Max Alekseyev_, Oct 18 2014