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 A181516 #10 Oct 10 2020 19:48:59
%S A181516 3,7,11,19,23,31,41,47,53,67,71,73,79,89,97,101,109,113,127,131,137,
%T A181516 149,173,181,191,193,197,229,239,263,271,277,281,293,311,337,349,353,
%U A181516 359,367,383,389,397,401,421,431,439,449,461,463,467,479,487,491,499
%N A181516 Primes in A011371.
%C A181516 Primes p such that 2^p divides some factorial m!, but 2^(p+1) does not divide m!.
%H A181516 Amiram Eldar, <a href="/A181516/b181516.txt">Table of n, a(n) for n = 1..10000</a>
%t A181516 f[n_] := n - DigitCount[n, 2, 1]; s={}; Do[If[PrimeQ[(p = f[n])], AppendTo[s, p]], {n, 1, 510, 2}]; s (* _Amiram Eldar_, Sep 13 2019 *)
%t A181516 Select[Table[n-DigitCount[n,2,1],{n,0,600}],PrimeQ]//Union (* _Harvey P. Dale_, Oct 10 2020 *)
%Y A181516 Cf. A011371.
%K A181516 nonn
%O A181516 1,1
%A A181516 _Vladimir Shevelev_, Oct 26 2010
%E A181516 Comment and definition swapped by _R. J. Mathar_, Oct 29 2010