A118569 Lucky numbers with consecutive digits.

21, 43, 67, 87, 321, 4321, 4567, 6789, 78901, 432109, 9012345, 67890123, 109876543, 123456789, 6543210987, 8901234567

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

Links

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

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

Cf. A000959.

Sequence in context: A041870 A041868 A135391 * A195049 A041874 A041872

Adjacent sequences: A118566 A118567 A118568 * A118570 A118571 A118572

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