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 A194991 #23 Sep 08 2022 08:45:58 %S A194991 2,5,7,11,17,19,23,29,31,41,43,59,67,71,79,89,97,101,103,113,127,131, %T A194991 139,149,157,163,167,173,179,181,193,197,223,227,229,239,251,257,263, %U A194991 271,283,307,313,349,353,373,379,383,389,401,409,421,431,433,439,449,457,467,479,487,509,523,547,563 %N A194991 Primes whose squares are odious. %C A194991 Subsequence of the numbers 1, 2, 4, 5, 7, 8, 9, 10, 11, 14, 16, 17, 18, 19, 20, 22, 23, 25, 28, 29, 31, 32, 33, ... which have odious squares. See A235331. - _R. J. Mathar_, Sep 20 2011 %H A194991 Vincenzo Librandi, <a href="/A194991/b194991.txt">Table of n, a(n) for n = 1..5240</a> %t A194991 Select[Prime@ Range@ 120, OddQ@ First@ DigitCount[#^2, 2] &] (* _Amiram Eldar_, Dec 14 2018 after _Michael De Vlieger_ at A027697 *) %o A194991 (PARI) isok(p) = isprime(p) && (hammingweight(p^2) % 2); \\ _Michel Marcus_, Dec 14 2018 %o A194991 (Magma) [p : p in PrimesInInterval(2, 600) |IsOdd(&+Intseq(p^2, 2))]; // _Vincenzo Librandi_, Dec 15 2018 %Y A194991 Cf. A000069, A001969, A027697, A027699. %K A194991 nonn,base %O A194991 1,1 %A A194991 _Vladimir Shevelev_, Sep 07 2011