OFFSET
1,1
COMMENTS
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
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..5240
MATHEMATICA
Select[Prime@ Range@ 120, OddQ@ First@ DigitCount[#^2, 2] &] (* Amiram Eldar, Dec 14 2018 after Michael De Vlieger at A027697 *)
PROG
(PARI) isok(p) = isprime(p) && (hammingweight(p^2) % 2); \\ Michel Marcus, Dec 14 2018
(Magma) [p : p in PrimesInInterval(2, 600) |IsOdd(&+Intseq(p^2, 2))]; // Vincenzo Librandi, Dec 15 2018
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Vladimir Shevelev, Sep 07 2011
STATUS
approved