A169936 Numbers whose name in English is an anagram of the name of another number.

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

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