%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&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_
|