A239751 Numbers whose number of nonzero binary digits is less than their number of nonzero decimal digits.

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

Michael Turniansky, Table of n, a(n) for n = 1..200

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

Cf. A000120, A051596, A055640.

Sequence in context: A197917 A317475 A335161 * A261782 A256818 A048170

Adjacent sequences: A239748 A239749 A239750 * A239752 A239753 A239754

Keyword

nonn,base,easy

Author

Michael Turniansky, Mar 26 2014

Status

approved