A043323 Numbers having three 0's in base 3.

27, 54, 82, 83, 84, 87, 90, 99, 108, 135, 163, 164, 165, 168, 171, 180, 189, 216, 247, 248, 250, 251, 253, 254, 255, 258, 262, 263, 264, 267, 271, 272, 273, 276, 279, 288, 298, 299, 300, 303, 306, 315, 325, 326, 327, 330, 333, 342, 351, 378, 406, 407, 408, 411

Offset

1,1

Links

Robert Israel, Table of n, a(n) for n = 1..10000

Maple

F:= proc(d, z) option remember;
  if d = 0 then if z = 0 then return [0] else return [] fi fi;
  [`if`(z>0, op(procname(d-1, z-1)), NULL),
   op(map(`+`, procname(d-1, z), 3^(d-1))),
   op(map(`+`, procname(d-1, z), 2*3^(d-1)))]
end proc:
f:= proc(d)
  op(map(`+`, F(d-1, 3), 3^(d-1))),
  op(map(`+`, F(d-1, 3), 2*3^(d-1)))
end proc:
seq(f(d), d=4..6); # Robert Israel, Mar 22 2023

Mathematica

Select[Range[400], DigitCount[#, 3, 0]==3&] (* Harvey P. Dale, Jan 18 2015 *)

Crossrefs

Cf. A007089.

Sequence in context: A040702 A305548 A306824 * A033903 A175806 A232922

Adjacent sequences: A043320 A043321 A043322 * A043324 A043325 A043326

Keyword

nonn,base

Author

Clark Kimberling

Status

approved