login
A262366
a(n) is the n-th prime whose binary expansion begins with the binary expansion of n.
2
2, 5, 13, 67, 43, 107, 127, 263, 307, 349, 373, 773, 839, 907, 991, 1063, 1109, 1201, 1277, 1321, 2713, 2819, 2963, 3119, 3229, 3371, 3517, 3691, 3779, 3943, 4051, 4217, 8461, 8719, 8963, 9241, 9497, 9767, 10039, 10303, 10613, 10799, 11159, 11317, 11657, 11923
OFFSET
1,1
MAPLE
u:= (h, t)-> select(isprime, [seq(h*2^t+k, k=0..2^t-1)]):
A:= proc(n, k) local l, p;
l:= proc() [] end; p:= proc() -1 end;
while nops(l(k))<n do p(k):= p(k)+1;
l(k):= [l(k)[], u(k, p(k))[]]
od: l(k)[n]
end:
a:= n-> A(n$2):
seq(a(n), n=1..60);
CROSSREFS
Main diagonal of A262365.
Cf. A077345.
Sequence in context: A028856 A013497 A260232 * A128029 A215167 A349735
KEYWORD
nonn,base
AUTHOR
Alois P. Heinz, Sep 20 2015
STATUS
approved