A039061 Numbers whose base-8 representation has the same number of 1's and 7's.

0, 2, 3, 4, 5, 6, 15, 16, 18, 19, 20, 21, 22, 24, 26, 27, 28, 29, 30, 32, 34, 35, 36, 37, 38, 40, 42, 43, 44, 45, 46, 48, 50, 51, 52, 53, 54, 57, 71, 87, 95, 103, 111, 119, 120, 122, 123, 124, 125, 126, 128, 130, 131, 132, 133, 134, 143, 144, 146, 147, 148, 149, 150

Offset

1,2

Links

G. C. Greubel, Table of n, a(n) for n = 1..5000

Mathematica

Select[Range[0, 150], DigitCount[#, 8, 1]==DigitCount[#, 8, 7]&]  (* Harvey P. Dale, Feb 08 2011 *)

Prog

(PARI) isok(n) = my(d=digits(n, 8)); #select(x->(x==1), d) == #select(x->(x==7), d); \\ Michel Marcus, Nov 01 2017

Crossrefs

Sequence in context: A065637 A325805 A350190 * A138987 A318534 A265405

Adjacent sequences: A039058 A039059 A039060 * A039062 A039063 A039064

Keyword

nonn,base,easy

Author

Olivier Gérard

Status

approved