1,1

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

(PARI) a000695(n) = fromdigits(binary(n), 4);

lista(nn) = forcomposite(n=1, nn, if (isprime(a000695(n)), print1(factor(n)[1, 1], ", "))); \\ Michel Marcus, Dec 18 2018

Cf. A152080, A000625, A152021, A152022, A152023, A152078.

Sequence in context: A019844 A155529 A261624 * A264736 A200620 A195389

Adjacent sequences: A152078 A152079 A152080 * A152082 A152083 A152084

nonn

Vladimir Shevelev, Nov 23 2008

More terms from Michel Marcus, Jun 02 2013

More terms from Michel Marcus, Dec 18 2018

approved