login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A046075 Nontrivial undulants; base 10 numbers >100 which are of the form aba, abab, ababa, ..., where a != b. 11

%I #21 Apr 29 2015 19:25:04

%S 101,121,131,141,151,161,171,181,191,202,212,232,242,252,262,272,282,

%T 292,303,313,323,343,353,363,373,383,393,404,414,424,434,454,464,474,

%U 484,494,505,515,525,535,545,565,575,585,595,606,616,626,636,646,656

%N Nontrivial undulants; base 10 numbers >100 which are of the form aba, abab, ababa, ..., where a != b.

%D C. A. Pickover, ``The Undulation of the Monks.'' Ch. 20 in Keys to Infinity. New York: W.H.Freeman, pp. 159-161 1995.

%D C. A. Pickover, "Wonders of Numbers", Oxford New York 2001, Chapter 52, pp. 123-124, 316-317.

%H Reinhard Zumkeller, <a href="/A046075/b046075.txt">Table of n, a(n) for n = 1..10000</a>

%H C. A. Pickover, "Wonders of Numbers, Adventures in Mathematics, Mind and Meaning," <a href="http://www.zentralblatt-math.org/zmath/en/search/?q=an:0983.00008&amp;format=complete">Zentralblatt review</a>

%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/UndulatingNumber.html">Undulating Number</a>

%o (Haskell)

%o import Data.Set (fromList, deleteFindMin, insert)

%o a046075 n = a046075_list !! (n-1)

%o a046075_list = f $ fromList

%o [100 * a + 10 * b + a | a <- [1..9], b <- [0..9], b /= a]

%o where f s = m : f (insert (10 * m + div (mod m 100) 10) s')

%o where (m, s') = deleteFindMin s

%o -- _Reinhard Zumkeller_, Apr 29 2015, May 01 2012

%Y Cf. A033619, A046076.

%Y Cf. A252664.

%K nonn,base

%O 1,1

%A _Eric W. Weisstein_

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

License Agreements, Terms of Use, Privacy Policy. .

Last modified March 28 09:04 EDT 2024. Contains 371240 sequences. (Running on oeis4.)