A152078 Numbers a(n) for which A000695(a(n)) = A077718(n).

3, 5, 17, 23, 29, 43, 47, 53, 55, 61, 77, 83, 87, 91, 107, 115, 117, 121, 139, 149, 151, 171, 173, 179, 181, 185, 191, 203, 213, 229, 233, 239, 253, 257, 263, 269, 277, 299, 307, 327, 329, 353, 369, 379, 383, 389, 405, 409, 415, 425, 439, 443, 449, 471, 475, 477

Offset

1,1

Links

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

Example

If n=1, then a(1)=3, A000695(3)=5=A077718(1).

Mathematica

f[n_] := FromDigits[IntegerDigits[n, 2], 4]; Select[Range[500], PrimeQ[f[#]] &] (* Amiram Eldar, Aug 31 2019 *)

Crossrefs

Cf. A000695, A077718, A152021, A152022, A152023.

Sequence in context: A347885 A326653 A218624 * A152079 A027699 A153417

Adjacent sequences: A152075 A152076 A152077 * A152079 A152080 A152081

Keyword

nonn

Author

Vladimir Shevelev, Nov 23 2008

Extensions

More terms from Amiram Eldar, Aug 31 2019

Status

approved