A032971 Numbers with the property that all pairs of consecutive base-8 digits differ by more than 1.

1, 2, 3, 4, 5, 6, 7, 11, 12, 13, 14, 15, 16, 20, 21, 22, 23, 24, 25, 29, 30, 31, 32, 33, 34, 38, 39, 40, 41, 42, 43, 47, 48, 49, 50, 51, 52, 56, 57, 58, 59, 60, 61, 88, 89, 93, 94, 95, 96, 97, 98, 102, 103, 104, 105, 106, 107, 111, 112, 113, 114, 115, 116, 120, 121

Offset

1,2

Links

Paolo Xausa, Table of n, a(n) for n = 1..10000

Mathematica

A032971Q[k_] := Min[Abs[Differences[IntegerDigits[k, 8]]]] > 1;
Select[Range[200], A032971Q] (* Paolo Xausa, Sep 29 2025 *)

Crossrefs

Cf. A007094.

Sequence in context: A265555 A214677 A275910 * A099466 A358673 A032976

Adjacent sequences: A032968 A032969 A032970 * A032972 A032973 A032974

Keyword

nonn,base

Author

Clark Kimberling

Extensions

More terms from Paolo Xausa, Sep 29 2025

Status

approved