This site is supported by donations to The OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A033075 Positive numbers n such that all pairs of consecutive decimal digits differ by 1. 19
 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 12, 21, 23, 32, 34, 43, 45, 54, 56, 65, 67, 76, 78, 87, 89, 98, 101, 121, 123, 210, 212, 232, 234, 321, 323, 343, 345, 432, 434, 454, 456, 543, 545, 565, 567, 654, 656, 676, 678, 765, 767, 787, 789, 876 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,2 COMMENTS Number of n-digit terms: 9, 17, 32, 61, 116, 222, 424 (= A090994). Also called 10-esthetic numbers (where in general a q-esthetic number has the property that the consecutive digits of its base-q representation differ by 1, see "Esthetic numbers" by J. M. De Koninck and N. Doyon). - Narad Rampersad, Aug 03 2018 LINKS Reinhard Zumkeller, Table of n, a(n) for n = 1..10000 J. M. De Koninck and N. Doyon, Esthetic numbers, Annales des Sciences mathématiques du Québec, 33 (2009), 155-164. FORMULA a(n) >> n^3.53267..., where the exponent is log 10/log k and k is the largest root of x^5 - x^4 - 4x^3 + 3x^2 + 3x - 1. - Charles R Greathouse IV, Mar 11 2014 MATHEMATICA Join[Range[9], Select[Range[2000], Union[Abs[Differences[IntegerDigits[#]]]]=={1}&]] (* Harvey P. Dale, Dec 28 2011 *) PROG (Haskell) -- import Data.Set (fromList, deleteFindMin, insert) a033075 n = a033075_list !! (n-1) a033075_list = f (fromList [1..9]) where    f s | d == 0    = m : f (insert (10*m+1) s')        | d == 9    = m : f (insert (10*m+8) s')        | otherwise = m : f (insert (10*m+d-1) (insert (10*m+d+1) s'))        where (m, s') = deleteFindMin s              d = mod m 10 -- Reinhard Zumkeller, Feb 21 2012 (PARI) diff(v)=vector(#v-1, i, v[i+1]-v[i]) is(n)=if(n>9, Set(abs(diff(digits(n))))==[1], n>0) \\ Charles R Greathouse IV, Mar 11 2014 CROSSREFS Cf. A090994, A048398 (primes), A048411 (squares), A207954 (palindromes). Sequence in context: A271955 A328273 A255734 * A215014 A292439 A132577 Adjacent sequences:  A033072 A033073 A033074 * A033076 A033077 A033078 KEYWORD nonn,base,easy AUTHOR STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified October 17 21:37 EDT 2019. Contains 328134 sequences. (Running on oeis4.)