%I #6 Sep 01 2019 02:38:17
%S 3,5,17,23,29,43,47,53,55,61,77,83,87,91,107,115,117,121,139,149,151,
%T 171,173,179,181,185,191,203,213,229,233,239,253,257,263,269,277,299,
%U 307,327,329,353,369,379,383,389,405,409,415,425,439,443,449,471,475,477
%N Numbers a(n) for which A000695(a(n)) = A077718(n).
%e If n=1, then a(1)=3, A000695(3)=5=A077718(1).
%t f[n_] := FromDigits[IntegerDigits[n, 2], 4]; Select[Range[500], PrimeQ[f[#]] &] (* _Amiram Eldar_, Aug 31 2019 *)
%Y Cf. A000695, A077718, A152021, A152022, A152023.
%K nonn
%O 1,1
%A _Vladimir Shevelev_, Nov 23 2008
%E More terms from _Amiram Eldar_, Aug 31 2019