A033079 Numbers in which all pairs of consecutive base-8 digits differ by 3.

0, 1, 2, 3, 4, 5, 6, 7, 12, 21, 24, 30, 33, 39, 42, 51, 60, 97, 103, 170, 195, 243, 268, 316, 341, 408, 414, 481, 487, 780, 828, 1365, 1560, 1566, 1944, 1950, 2145, 2151, 2529, 2535, 2730, 3267, 3315, 3852, 3900, 6241, 6247, 6625, 6631, 10922, 12483, 12531, 15555

Offset

1,3

Links

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

Mathematica

Join[{0, 1, 2, 3, 4, 5, 6, 7}, Select[Range[20000], Union[Abs[Differences[ IntegerDigits[ #, 8]]]]=={3}&]] (* Harvey P. Dale, Apr 12 2013 *)

Crossrefs

Sequence in context: A129978 A251556 A200446 * A173819 A165305 A125745

Adjacent sequences: A033076 A033077 A033078 * A033080 A033081 A033082

Keyword

nonn,base

Author

Clark Kimberling

Extensions

Extended by Harvey P. Dale, Apr 12 2013

Status

approved