A174332 - OEIS

%I #12 Feb 13 2021 22:58:41

%S 5,7,11,23,23,29,71,79,47,59,127,101,83,107,191,107,239,251,269,199,

%T 293,317,167,179,353,229,359,431,439,227,383,263,787,557,599,607,631,

%U 419,1447,347,359,727,383,449,709,797,467,479,739,919,467,479,967,503,769

%N Least prime q of which prime(n) is a proper binary substring.

%C a(n) = A208238(A000040(n)) = A208241(A000040(n)). - _Reinhard Zumkeller_, Feb 14 2013

%H Reinhard Zumkeller, <a href="/A174332/b174332.txt">Table of n, a(n) for n = 1..10000</a>

%e a(1)=5 since 2_10 = 10_2 is a substring of 5_10 = 101_2.

%t 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 (Haskell)

%o a174332 = a208238 . a000040  -- _Reinhard Zumkeller_, Feb 14 2013

%Y Cf. A000040, A004676, A007088.

%K base,nonn

%O 1,1

%A _Robert G. Wilson v_, Mar 15 2010