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

Author

Vladimir Shevelev, Nov 23 2008

Keywords

• nonn

Examples

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

Crossrefs

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

Programs

Mathematica

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

Extensions

More terms from Amiram Eldar, Aug 31 2019