A102212 - OEIS

%I #15 Sep 08 2022 08:45:16

%S 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 73,74,78,81,82,86,90,94,97,98,102,106,110,114,118,122,126,130,133,

%U 134,137,138,142,145,146,150,154,158,162,166,170,174,177,178,182,186,190

%N Numbers m with A102210(m) = 1.

%C ;

%H Amiram Eldar, <a href="/A102212/b102212.txt">Table of n, a(n) for n = 1..10000</a>

%F A102210(a(n)) = 1.

%t f[n_] := Count[Range[n], _?(PrimeQ[#] && BitAnd[n, #] == # &)]; Select[Range[216], f[#] == 1 &] (* _Amiram Eldar_, Jan 12 2020 *)

%o (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 A016825 is a subsequence.

%Y Cf. A102210, A102211, A102213.

%K nonn,base

%O 1,1

%A _Reinhard Zumkeller_, Dec 30 2004