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 A072582 #11 Jul 28 2025 03:11:25
%S A072582 2,17,41,101,157,179,181,197,227,229,271,277,293,347,349,373,397,401,
%T A072582 449,563,571,587,601,619,647,661,757,797,811,821,829,853,929,947,953,
%U A072582 971,977,997,1039,1103,1129,1213,1231,1237,1303,1307,1409,1433,1459
%N A072582 a(n) = A000040(A072579(n)).
%H A072582 Amiram Eldar, <a href="/A072582/b072582.txt">Table of n, a(n) for n = 1..10000</a>
%F A072582 A023416(a(n)) = A000120(A072579(n)) = A035103(n).
%e A072582 In binary representation 70 = '1000110' has three 1's and A000040(70) = 349 = '101011101' has three 1's: therefore 349 is a term.
%t A072582 With[{m = 300}, Select[Transpose[{Range[m], Prime[Range[m]]}], DigitCount[First[#], 2, 1] == DigitCount[Last[#], 2, 0] &]][[;; , 2]] (* _Amiram Eldar_, Jul 28 2025 *)
%Y A072582 Cf. A000040, A000120, A023416, A035103, A072439, A072579, A072580, A072581, A072584.
%K A072582 nonn,base,easy
%O A072582 1,1
%A A072582 _Reinhard Zumkeller_, Jun 23 2002