A032992 If d,e are consecutive digits of n in base 10, then |d-e|>=4.

1, 2, 3, 4, 5, 6, 7, 8, 9, 15, 16, 17, 18, 19, 26, 27, 28, 29, 37, 38, 39, 40, 48, 49, 50, 51, 59, 60, 61, 62, 70, 71, 72, 73, 80, 81, 82, 83, 84, 90, 91, 92, 93, 94, 95, 150, 151, 159, 160, 161, 162, 170, 171, 172, 173, 180, 181, 182, 183

Offset

1,2

Links

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

Maple

for i from 0 to 9 do S[1, i]:= {i} od:
for d from 2 to 4 do
  for i from 0 to 9 do
    S[d, i]:=  `union`(seq(map(t -> i*10^(d-1)+t, S[d-1, j]), j={$0..9} minus {$(i-3)..(i+3)}))
od od:
seq(seq(op(sort(convert(S[d, i], list))), i=1..9), d=1..4); # Robert Israel, Sep 28 2025

Mathematica

Select[Range[200], Min[Abs[Differences[IntegerDigits[#]]]]>3&] (* Harvey P. Dale, Dec 15 2014 *)

Crossrefs

Sequence in context: A242420 A242419 A073526 * A190298 A069118 A328933

Adjacent sequences: A032989 A032990 A032991 * A032993 A032994 A032995

Keyword

nonn,base

Author

Clark Kimberling

Status

approved