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

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A169936 Numbers whose name in English is an anagram of the name of another number. 1
 67, 69, 76, 79, 96, 97, 102, 103, 104, 105, 106, 107, 108, 109, 112, 122, 123, 124, 125, 126, 127, 128, 129, 132, 133, 134, 135, 136, 137, 138, 139, 142, 143, 144, 145, 146, 147, 148, 149, 152, 153, 154, 155, 156, 157, 158, 159, 162, 163, 164 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,1 LINKS Reinhard Zumkeller, Table of n, a(n) for n = 1..680, all terms < 1000. Roel and Bas van Dijk, Numerals package, Hackage (Haskell packages). Wikipedia, Anagram EXAMPLE SIXTY-SEVEN <-> SEVENTY-SIX SIXTY-NINE <-> NINETY-SIX SEVENTY-SIX <-> SIXTY-SEVEN NINETY-SIX <-> SIXTY-NINE ONE HUNDRED TWO <-> TWO HUNDRED ONE ONE HUNDRED THREE <-> THREE HUNDRED ONE ... ONE HUNDRED TWELVE <-> TWO HUNDRED ELEVEN ... SIX HUNDRED SEVENTY-NINE <-> SIX HUNDRED NINETY-SEVEN <-> SEVEN HUNDRED SIXTY-NINE <-> SEVEN HUNDRED NINETY-SIX <-> NINE HUNDRED SIXTY-SEVEN <-> NINE HUNDRED SEVENTY-SIX PROG (Haskell) import Data.Map (empty, insertWith, elems) import Data.Text (unpack); import Data.Maybe (fromJust) import Data.List (sort) import Text.Numeral.Grammar.Reified (defaultInflection) import qualified Text.Numeral.Language.EN as EN -- see link a169936 n = a169936_list !! (n-1) a169936_list = sort \$ concat \$ filter ((> 1) . length) \$ elems \$ fill [1..999] empty where fill [] m = m fill (z:zs) m = fill zs \$ insertWith (++) (sort \$ engl z) [z] m engl :: Integer -> String engl = unpack . fromJust . EN.us_cardinal defaultInflection -- Reinhard Zumkeller, Feb 18 2015 (Python) from num2words import num2words def alst(ALLBELOW=1000): out, ana = set(), dict() for i in range(ALLBELOW): key = "".join(sorted(num2words(i))) if key in ana: out.update([ana[key], i]) else: ana[key] = i return sorted(out) print(alst()) # Michael S. Branicky, Dec 14 2020 CROSSREFS Sequence in context: A145175 A196251 A246783 * A045808 A073523 A295803 Adjacent sequences: A169933 A169934 A169935 * A169937 A169938 A169939 KEYWORD nonn,word,nice AUTHOR Eric Angelini, Jul 21 2010 EXTENSIONS Terms 102 through 112 from Andrew Weimholt, Jul 21 2010 Terms beyond 112 from Sean A. Irvine, Jul 22 2010 STATUS approved

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.

Last modified October 4 09:31 EDT 2023. Contains 365873 sequences. (Running on oeis4.)