OFFSET
1,1
PROG
(PARI) a000695(n) = fromdigits(binary(n), 4);
isok(n) = isprime(a000695(prime(n))); \\ Michel Marcus, Dec 18 2018
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Shevelev, Dec 14 2008
EXTENSIONS
More terms from Michel Marcus, Dec 18 2018
STATUS
approved