A124387 Largest prime < 2*a[n-1] written in binary, a[1]=2.

10, 11, 101, 111, 1101, 10111, 101011, 1010011, 10100011, 100111101, 1001110111, 10011101011, 100111000111, 1001110001011, 10011011110101, 100110111100001, 1001101110111101, 10011011101010011, 100110111010011101, 1001101110100011111, 10011011101000111011

Offset

1,1

Links

Table of n, a(n) for n=1..21.

Mathematica

NestList[FromDigits[IntegerDigits[NextPrime[FromDigits[IntegerDigits[ 2#], 2], -1], 2]]&, 10, 20] (* Harvey P. Dale, Sep 26 2015 *)

Crossrefs

Cf. A006902, A040016, A120031-A120041.

Sequence in context: A206073 A004676 A303593 * A171796 A362917 A305379

Adjacent sequences: A124384 A124385 A124386 * A124388 A124389 A124390

Keyword

nonn

Author

Artur Jasinski, Dec 16 2006

Extensions

Corrected and extended by Harvey P. Dale, Sep 26 2015

Status

approved