login
This site is supported by donations to The OEIS Foundation.

 

Logo


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

Clark Kimberling

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.

License Agreements, Terms of Use, Privacy Policy. .

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