A033071 Numbers with the property that all pairs of consecutive base-6 digits differ by 1.

1, 2, 3, 4, 5, 6, 8, 13, 15, 20, 22, 27, 29, 34, 37, 49, 51, 78, 80, 92, 94, 121, 123, 135, 137, 164, 166, 178, 207, 209, 222, 224, 294, 296, 308, 310, 469, 481, 483, 553, 555, 567, 569, 726, 728, 740, 742, 812, 814, 826, 985, 987

Offset

1,2

Links

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

Maple

extend:= proc(x) local t;
  t:=  x mod 6;
  if t = 0 then 6*x+1
  elif t = 5 then 6*x+4
  else 6*x+t-1, 6*x+t+1
  fi
end proc:
L:= [1, 2, 3, 4, 5]: R:= op(L):
while nops([R])<100 do
  L:= map(extend, L);
  R:= R, op(L);
od:
R; # Robert Israel, Dec 21 2025

Mathematica

Join[Range[5], Select[Range[2000], Union[Abs[Differences[IntegerDigits[#, 6]]]]=={1}&]] (* Harvey P. Dale, Dec 28 2011 *)

Crossrefs

Sequence in context: A277195 A358208 A133430 * A306075 A049432 A352821

Adjacent sequences: A033068 A033069 A033070 * A033072 A033073 A033074

Keyword

nonn,base

Author

Clark Kimberling

Status

approved