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

 

Logo


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

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 | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified May 20 02:50 EDT 2019. Contains 323412 sequences. (Running on oeis4.)