OFFSET
1,1
LINKS
Alois P. Heinz, Table of n, a(n) for n = 1..20000
MAPLE
lis:=[]; q:=5;
for i from 1 to 10 do for j from 1 to 2^i-1 do
if isprime(q*2^i+j) then lis:=[op(lis), q*2^i+j]; fi; od: od:
lis;
MATHEMATICA
Select[Flatten[Table[FromDigits[#, 2]&/@(Join[{1, 0, 1}, #]&/@Tuples[{0, 1}, n]), {n, 0, 10}]], PrimeQ] (* Harvey P. Dale, Oct 17 2021 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
N. J. A. Sloane, Sep 19 2015
STATUS
approved