login
Numbers a(n) for which A000695(a(n)) = A077718(n).
5

%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