This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A152078 #6 Sep 01 2019 02:38:17 %S A152078 3,5,17,23,29,43,47,53,55,61,77,83,87,91,107,115,117,121,139,149,151, %T A152078 171,173,179,181,185,191,203,213,229,233,239,253,257,263,269,277,299, %U A152078 307,327,329,353,369,379,383,389,405,409,415,425,439,443,449,471,475,477 %N A152078 Numbers a(n) for which A000695(a(n)) = A077718(n). %e A152078 If n=1, then a(1)=3, A000695(3)=5=A077718(1). %t A152078 f[n_] := FromDigits[IntegerDigits[n, 2], 4]; Select[Range[500], PrimeQ[f[#]] &] (* _Amiram Eldar_, Aug 31 2019 *) %Y A152078 Cf. A000695, A077718, A152021, A152022, A152023. %K A152078 nonn %O A152078 1,1 %A A152078 _Vladimir Shevelev_, Nov 23 2008 %E A152078 More terms from _Amiram Eldar_, Aug 31 2019