|
|
A192086
|
|
Numbers n such that the binary weight (A000120) of n^3 is less than the binary weight of n^2.
|
|
1
|
|
|
219, 309, 349, 438, 467, 565, 618, 665, 698, 701, 817, 876, 885, 934, 1130, 1141, 1143, 1236, 1291, 1297, 1299, 1330, 1396, 1397, 1402, 1435, 1629, 1634, 1659, 1752, 1755, 1770, 1771, 1773, 1868, 1905, 2155, 2229, 2260, 2282, 2286, 2353, 2401, 2472, 2582
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
|
|
LINKS
|
|
|
EXAMPLE
|
219^2 decimal = 1011101101011001 binary, and 219^3 decimal = 101000000100010100100011; Since the cube has fewer ones in its binary expansion than the square (eight versus ten), 219 is in the list.
|
|
MAPLE
|
A192086 := proc(n) return `if`(add(b, b=convert(n^3, base, 2))<add(b, b=convert(n^2, base, 2)), n, NULL): end: seq(A192086(n), n=0..3000); # Nathaniel Johnston, Jun 23 2011
|
|
MATHEMATICA
|
Select[Range[2800], DigitCount[#^3, 2, 1]<DigitCount[#^2, 2, 1]&] (* Harvey P. Dale, Jun 30 2011 *)
Flatten@Position[Flatten@(Differences@DigitSum[#^2*{1, #}, 2] & /@Range@15000), _?(# < 0 &)] (* Hans Rudolf Widmer, Aug 05 2024 *)
|
|
PROG
|
(Magma) [ n: n in [0..2600] | &+Intseq(n^3, 2) lt &+Intseq(n^2, 2) ]; // Bruno Berselli, Jun 24 2011
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|