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, ...).

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

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: A114836 A294740 A069086 * A054983 A039545 A322162

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