OFFSET
1,1
MATHEMATICA
NestList[FromDigits[IntegerDigits[NextPrime[FromDigits[IntegerDigits[ 2#], 2], -1], 2]]&, 10, 20] (* Harvey P. Dale, Sep 26 2015 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Artur Jasinski, Dec 16 2006
EXTENSIONS
Corrected and extended by Harvey P. Dale, Sep 26 2015
STATUS
approved