A180054 In binary expansion, number of 1's in 3n is less than in n.
11, 22, 23, 27, 43, 44, 46, 47, 54, 55, 59, 86, 87, 88, 91, 92, 94, 95, 107, 108, 110, 111, 118, 119, 123, 171, 172, 173, 174, 175, 176, 179, 182, 183, 184, 187, 188, 190, 191, 203, 214, 215, 216, 219, 220, 222, 223, 235, 236, 238, 239, 246, 247, 251, 299, 342
Offset: 1
Examples
n=11=1011_2, 3n=33=100001_2; or A000120(11)=3, A000120(3*11)=2 n=23=10111_2, 3n=69=1000101_2; or A000120(23)=4, A000120(3*23)=3.
Links
- G. C. Greubel, Table of n, a(n) for n = 1..10000
- Kenneth B. Stolarsky, Integers whose multiples have anomalous digital frequencies, Acta Arithmetica 38 (2) (1980), 117-128.
Programs
-
Mathematica
Select[Range[500],Count[IntegerDigits[3#,2],1]
DigitCount[3#,2,1]&] (* Harvey P. Dale, Sep 01 2021 *) -
PARI
for(k=1,350,if(hammingweight(3*k)
Hugo Pfoertner, Dec 26 2019
Comments