%I #13 Nov 11 2020 19:00:17
%S 2,5,13,67,43,107,127,263,307,349,373,773,839,907,991,1063,1109,1201,
%T 1277,1321,2713,2819,2963,3119,3229,3371,3517,3691,3779,3943,4051,
%U 4217,8461,8719,8963,9241,9497,9767,10039,10303,10613,10799,11159,11317,11657,11923
%N a(n) is the n-th prime whose binary expansion begins with the binary expansion of n.
%H Alois P. Heinz, <a href="/A262366/b262366.txt">Table of n, a(n) for n = 1..5000</a>
%H <a href="/index/Pri#piden">Index entries for primes involving decimal expansion of n</a>
%p u:= (h, t)-> select(isprime, [seq(h*2^t+k, k=0..2^t-1)]):
%p A:= proc(n, k) local l, p;
%p l:= proc() [] end; p:= proc() -1 end;
%p while nops(l(k))<n do p(k):= p(k)+1;
%p l(k):= [l(k)[], u(k,p(k))[]]
%p od: l(k)[n]
%p end:
%p a:= n-> A(n$2):
%p seq(a(n), n=1..60);
%Y Main diagonal of A262365.
%Y Cf. A077345.
%K nonn,base
%O 1,1
%A _Alois P. Heinz_, Sep 20 2015
|