1,1

(Macsyma) for n do for p in map('first, factor_number(abs(num(bern(2*n))))) do if p>2*n+3 then (?prin1(p), ?prin1('?\-));

Cf. A000367.

Sequence in context: A127341 A135316 A160500 this_sequence A033563 A156036 A029814

Adjacent sequences: A046750 A046751 A046752 this_sequence A046754 A046755 A046756

nonn

R. W. Gosper