|
%I #9 May 02 2017 10:53:19
%S 3,40,103,107,108,140,150,160,203,207,208,240,250,260,315,316,370,411,
%T 412,420,430,480,490,511,512,520,530,580,590,603,607,608,640,650,660,
%U 715,716,770,815,816,870,911,912,920,930,980,990,1304,1305,1309,1415
%N Numbers that have an "r" in the middle of their names.
%e 3 and 40 are terms since 3 = thRee, and 40 = foRty.
%t 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 *)
%Y Cf. A160658, A160660, A160661, A160662.
%K nonn,word,less
%O 1,1
%A _Claudio Meller_, May 22 2009
%E a(48)-a(51) from _Giovanni Resta_, May 01 2017
|
