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 A102213 #13 Sep 08 2022 08:45:16 %S A102213 3,7,11,13,15,19,21,23,27,29,31,35,37,39,43,45,47,51,53,55,57,59,61, %T A102213 63,67,71,75,77,79,83,85,87,89,91,93,95,99,101,103,105,107,109,111, %U A102213 113,115,117,119,121,123,125,127,131,135,139,141,143,147,149,151,153,155,157 %N A102213 Numbers m with A102210(m) > 1. %H A102213 Amiram Eldar, <a href="/A102213/b102213.txt">Table of n, a(n) for n = 1..10000</a> %F A102213 A102210(a(n)) > 1. %t A102213 f[n_] := Count[Range[n], _?(PrimeQ[#] && BitAnd[n, #] == # &)]; Select[Range[216], f[#] > 1 &] (* _Amiram Eldar_, Jan 12 2020 *) %o A102213 (Magma) [k:k in [1..160]|#[p:p in PrimesUpTo(k)| p eq BitwiseAnd(k,p)] gt 1 ]; // _Marius A. Burtea_, Jan 12 2020 %Y A102213 Subsequence of A005408. %Y A102213 Cf. A102210, A102211, A102212. %K A102213 nonn,base %O A102213 1,1 %A A102213 _Reinhard Zumkeller_, Dec 30 2004