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 A102212 #15 Sep 08 2022 08:45:16 %S A102212 2,5,6,10,14,17,18,22,25,26,30,34,38,41,42,46,49,50,54,58,62,66,69,70, %T A102212 73,74,78,81,82,86,90,94,97,98,102,106,110,114,118,122,126,130,133, %U A102212 134,137,138,142,145,146,150,154,158,162,166,170,174,177,178,182,186,190 %N A102212 Numbers m with A102210(m) = 1. %C A102212 ; %H A102212 Amiram Eldar, <a href="/A102212/b102212.txt">Table of n, a(n) for n = 1..10000</a> %F A102212 A102210(a(n)) = 1. %t A102212 f[n_] := Count[Range[n], _?(PrimeQ[#] && BitAnd[n, #] == # &)]; Select[Range[216], f[#] == 1 &] (* _Amiram Eldar_, Jan 12 2020 *) %o A102212 (Magma) [k:k in [1..200]|#[p:p in PrimesUpTo(k)| p eq BitwiseAnd(k,p)] eq 1 ]; // _Marius A. Burtea_, Jan 12 2020 %Y A102212 A016825 is a subsequence. %Y A102212 Cf. A102210, A102211, A102213. %K A102212 nonn,base %O A102212 1,1 %A A102212 _Reinhard Zumkeller_, Dec 30 2004