A044981 Numbers whose base-3 representation contains exactly three 0's and one 1.

27, 83, 87, 99, 135, 163, 165, 171, 189, 251, 263, 267, 299, 303, 315, 407, 411, 423, 459, 491, 493, 497, 501, 505, 507, 515, 519, 531, 541, 543, 549, 569, 573, 585, 621, 649, 651, 657, 675, 755, 791, 803, 807, 899, 911, 915

Offset

1,1

Links

Table of n, a(n) for n=1..46.

Mathematica

Select[Range[1000], DigitCount[#, 3, 0]==3&&DigitCount[#, 3, 1]==1&] (* Harvey P. Dale, May 10 2024 *)

Prog

(PARI) upto(N)=my(d); [n |n<-[0..N], #(d=vecsort(digits(n, 3)))>=4 && d[1..4]==[0, 0, 0, 1] && (4==#d || 2==d[5])]; \\ Ruud H.G. van Tol, Jun 01 2024

Crossrefs

Cf. A007089.

Sequence in context: A042436 A042438 A251088 * A251081 A161340 A043182

Adjacent sequences: A044978 A044979 A044980 * A044982 A044983 A044984

Keyword

nonn,base

Author

Clark Kimberling

Status

approved