OFFSET
1,3
LINKS
Alois P. Heinz, Table of n, a(n) for n = 1..20000
MAPLE
q:= n-> issqr(8*add(i, i=Bits[Split](n))+1):
select(q, [$0..200])[]; # Alois P. Heinz, May 24 2021
MATHEMATICA
Select[Range[0, 200], IntegerQ @ Sqrt[8 * Plus @@ IntegerDigits[#, 2] + 1] &] (* Amiram Eldar, May 24 2021 *)
PROG
(PARI) isok(n) = ispolygonal(hammingweight(n), 3);
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Michel Marcus, May 24 2021
STATUS
approved