login
A160659
Numbers that have an "r" in the middle of their names.
3
3, 40, 103, 107, 108, 140, 150, 160, 203, 207, 208, 240, 250, 260, 315, 316, 370, 411, 412, 420, 430, 480, 490, 511, 512, 520, 530, 580, 590, 603, 607, 608, 640, 650, 660, 715, 716, 770, 815, 816, 870, 911, 912, 920, 930, 980, 990, 1304, 1305, 1309, 1415
OFFSET
1,1
EXAMPLE
3 and 40 are terms since 3 = thRee, and 40 = foRty.
MATHEMATICA
ok[n_] := Block[{s = StringReplace[IntegerName[n, "Words"], ", " | " " | "\[Hyphen]" -> ""], m}, m = StringLength[s]; OddQ[m] && (m = (m + 1)/2; StringTake[s, {m, m}] == "r")]; Select[ Range[5000], ok] (* Giovanni Resta, May 01 2017 *)
CROSSREFS
KEYWORD
nonn,word,less
AUTHOR
Claudio Meller, May 22 2009
EXTENSIONS
a(48)-a(51) from Giovanni Resta, May 01 2017
STATUS
approved