|
|
A344602
|
|
Integers whose Hamming weight is triangular.
|
|
2
|
|
|
0, 1, 2, 4, 7, 8, 11, 13, 14, 16, 19, 21, 22, 25, 26, 28, 32, 35, 37, 38, 41, 42, 44, 49, 50, 52, 56, 63, 64, 67, 69, 70, 73, 74, 76, 81, 82, 84, 88, 95, 97, 98, 100, 104, 111, 112, 119, 123, 125, 126, 128, 131, 133, 134, 137, 138, 140, 145, 146, 148, 152, 159, 161
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,3
|
|
LINKS
|
|
|
MAPLE
|
q:= n-> issqr(8*add(i, i=Bits[Split](n))+1):
|
|
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
|
|
|
STATUS
|
approved
|
|
|
|