login
A239751
Numbers whose number of nonzero binary digits is less than their number of nonzero decimal digits.
1
16, 32, 64, 128, 129, 132, 136, 144, 192, 256, 257, 258, 264, 272, 288, 384, 512, 513, 514, 516, 528, 544, 576, 768, 1024, 1025, 1026, 1028, 1032, 1056, 1088, 1152, 1153, 1154, 1156, 1168, 1184, 1216, 1280, 1281, 1282, 1284, 1288, 1296, 1312, 1344, 1536, 1537, 1538, 1544, 1552, 1568, 1664
OFFSET
1,1
COMMENTS
If Hebrew gematria (A051596) were replaced with a "binary gematria" where aleph=1, bet=2, gimel=4, etc., this sequence would be a subset of "numbers whose binary gematria has fewer letters than their original gematria".
LINKS
FORMULA
n such that A000120(n)<A055640(n).
MATHEMATICA
Select[Range[1664], Less @@ Total /@ Sign /@ IntegerDigits[#, {2, 10}] &] (* Giovanni Resta, Mar 26 2014 *)
PROG
(APL) ((+⌿(22⍴2)⊤C)<+⌿0≠(5⍴10)⊤C)/C←⍳10000
CROSSREFS
KEYWORD
nonn,base,easy
AUTHOR
Michael Turniansky, Mar 26 2014
STATUS
approved