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 A354837 #16 Jul 02 2022 14:43:07 %S A354837 21,33,63,69,81,99,111,123,159,165,183,189,203,207,219,231,237,243, %T A354837 249,259,261,273,297,303,315,321,363,399,411,423,429,435,441,459,483, %U A354837 489,495,513,543,561,567,573,585,591,603,615,621,627,633,663,669,693,707,711 %N A354837 Odd numbers k such that gcd(k, A007088(k)) != 1. %e A354837 k = 33; gcd(33,A007088(33)) = gcd(33, 100001) = 11, thus k = 33 is a term. %t A354837 Select[Range[1, 700, 2], ! CoprimeQ[#, FromDigits[IntegerDigits[#, 2]]] &] (* _Amiram Eldar_, Jun 08 2022 *) %o A354837 (PARI) isok(k) = (k%2) && (gcd(k, fromdigits(binary(k))) != 1); \\ _Michel Marcus_, Jun 09 2022 %Y A354837 Cf. A007088, A354838. %K A354837 nonn,base %O A354837 1,1 %A A354837 _Ctibor O. Zizka_, Jun 08 2022