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 A174332 #12 Feb 13 2021 22:58:41
%S A174332 5,7,11,23,23,29,71,79,47,59,127,101,83,107,191,107,239,251,269,199,
%T A174332 293,317,167,179,353,229,359,431,439,227,383,263,787,557,599,607,631,
%U A174332 419,1447,347,359,727,383,449,709,797,467,479,739,919,467,479,967,503,769
%N A174332 Least prime q of which prime(n) is a proper binary substring.
%C A174332 a(n) = A208238(A000040(n)) = A208241(A000040(n)). - _Reinhard Zumkeller_, Feb 14 2013
%H A174332 Reinhard Zumkeller, <a href="/A174332/b174332.txt">Table of n, a(n) for n = 1..10000</a>
%e A174332 a(1)=5 since 2_10 = 10_2 is a substring of 5_10 = 101_2.
%t A174332 f[n_] := Block[{k = n + 1, p = StringTake[ ToString@ IntegerDigits[ Prime@n, 2], {2, -2}]}, While[q = StringTake[ ToString@ IntegerDigits[ Prime@k, 2], {2, -2}]; StringPosition[q, p] == {}, k++ ]; Prime@k]; Array[f, 55]
%o A174332 (Haskell)
%o A174332 a174332 = a208238 . a000040 -- _Reinhard Zumkeller_, Feb 14 2013
%Y A174332 Cf. A000040, A004676, A007088.
%K A174332 base,nonn
%O A174332 1,1
%A A174332 _Robert G. Wilson v_, Mar 15 2010