A160659 Numbers that have an "r" in the middle of their names.

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

Links

Table of n, a(n) for n=1..51.

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

Cf. A160658, A160660, A160661, A160662.

Sequence in context: A262036 A041347 A326608 * A197247 A065815 A283115

Adjacent sequences: A160656 A160657 A160658 * A160660 A160661 A160662

Keyword

nonn,word,less

Author

Claudio Meller, May 22 2009

Extensions

a(48)-a(51) from Giovanni Resta, May 01 2017

Status

approved