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

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A119482 Numbers that are diminished by taking its sum of letters (writing out its English name and adding the letters using a=1, b=2, c=3, ...). 1
80, 90, 200, 201, 202, 203, 204, 205, 206, 207, 208, 209, 210, 211, 215, 218, 219, 240, 250, 251, 255, 256, 258, 259, 260, 270, 280, 281, 282, 283, 284, 285, 286, 287, 288, 289, 290, 291, 292, 293, 294, 295, 296, 297, 298, 299, 300, 301, 302, 303, 304, 305, 306, 307 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,1

COMMENTS

Note, since 202 a term, this is American English  (e.g. 'two hundred two', not 'two hundred and two'). - Alvin Hoover Belt, Jan 16 2016

Numbers that satisfy A073327(n) < n. - Michel Marcus, Jan 17 2016

LINKS

Michael De Vlieger, Table of n, a(n) for n = 1..10000

EXAMPLE

EIGHTY = 5+9+7+8+20+25 = 74, so 80 is in the sequence.

MATHEMATICA

f[n_] := Block[{w, g, d = FromDigits /@ If[IntegerLength@ n > 3, Reverse@ TakeDrop[IntegerDigits@ n, -3], {IntegerDigits@ n}], r = <| 2 -> "hundred", 3 -> "thousand" |>, s = <| 10 -> "ten", 20 -> "twenty", 30 -> "thirty", 40 -> "forty", 50 -> "fifty", 60 -> "sixty", 70 -> "seventy", 80 -> "eighty", 90 -> "ninety" |>, t = <| 10 -> "ten", 11 -> "eleven", 12 -> "twelve", 13 -> "thirteen", 14 -> "fourteen", 15 -> "fifteen", 16 -> "sixteen", 17 -> "seventeen", 18 -> "eighteen", 19 -> "nineteen"|>, u = <| 0 -> "", 1 -> "one", 2 -> "two", 3 -> "three", 4 -> "four", 5 -> "five", 6 -> "six", 7 -> "seven", 8 -> "eight", 9 -> "nine" |>}, g[x_] := StringJoin[If[# == 0, "", Lookup[u, #] <> " " <> Lookup[r, 2]] &@ Floor[#/10^2] &@ x, " ", Which[0 <= # < 10, Lookup[u, #], 10 <= # < 20, Lookup[t, #], True, Lookup[s, 10 First@ #] <> " " <> Lookup[u, Last@ #] &@ IntegerDigits@ #] &@ (# - 10^2 Floor[#/10^2]) &@ x]; w = If[Length@ d == 2, g@ First@ d <> " " <> Lookup[r, 3] <> " " <> g@ Last@ d, g@ First@ d]; StringReplace[StringTrim@ w, "  " -> " "]]; Select[Range@ 300, Total[ToCharacterCode[StringReplace[f@ #, " " -> ""]] - 96] < # &] (* Michael De Vlieger, Jan 18 2016 *)

PROG

(PARI) for (n=1, 1000, if (A073327(n) < n, print1(n, ", "))) \\ using PARI scripts from A052360 and A073327; Michel Marcus, Jan 18 2016

CROSSREFS

Cf. A073327.

Sequence in context: A255477 A114836 A069086 * A054983 A039545 A143755

Adjacent sequences:  A119479 A119480 A119481 * A119483 A119484 A119485

KEYWORD

nonn,word,less

AUTHOR

Tanya Khovanova, Jul 26 2006

EXTENSIONS

More terms from Alvin Hoover Belt, Jan 16 2016

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

License Agreements, Terms of Use, Privacy Policy .

Last modified July 21 04:27 EDT 2017. Contains 289632 sequences.