OFFSET
1,1
COMMENTS
Digits can be in ascending or descending order. After 9 comes 0.
No more terms below 10^9. - Amiram Eldar, Nov 16 2019
No more terms below 10^10. - Kevin P. Thompson, Mar 04 2022
MATHEMATICA
consecutiveQ[n_Integer] := Block[{id = IntegerDigits@n}, MemberQ[{{1}, {9}}, Union@Mod[Rest@id - Most@id, 10]]] (* Bobby R. Treat (drbob(at)bigfoot.com), May 10 2006 *)
lst = Range[1, 10^8, 2]; i = 2; While[ i <= (len = Length@lst) && (k = lst[[i]]) <= len, lst = Drop[lst, {k, len, k}]; i++ ]; Select[t, consecutiveQ@# &] (* Robert G. Wilson v, May 11 2006 *)
CROSSREFS
KEYWORD
base,more,nonn
AUTHOR
Luc Stevens (lms022(AT)yahoo.com), May 07 2006
EXTENSIONS
a(9)-a(12) from Robert G. Wilson v, May 11 2006
a(13)-a(14) from Amiram Eldar, Nov 16 2019
a(15)-a(16) from Kevin P. Thompson, Mar 04 2022
STATUS
approved