OFFSET
1,1
FORMULA
PROG
(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
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Shevelev, Nov 23 2008
EXTENSIONS
More terms from Michel Marcus, Jun 02 2013
More terms from Michel Marcus, Dec 18 2018
STATUS
approved