我们在这里看到了很多挑战，要求从OEIS创建函数来创建序列。尽管这些挑战很有趣，但作为一名程序员，我看到了自动化的机会。

您的挑战是制作一个程序，该程序采用序列的索引（例如A172141）和某个整数n（例如7），并从适当的网页中提取适当的值。

输入输出

如前所述，您的程序应采用序列索引和某个值n作为输入，并输出该序列中的第n个项。您接受序列B文件中的任何索引。如果索引大于B文件中列出的最大索引，则您可能会引发异常或输出您选择的内容（测试用例中没有）。允许使用标准的输入和输出方法。

网络使用限制

除https://oeis.org和http://oeis.org之外，您不应访问任何其他网站。这包括网址缩短器，您自己的个人网站以及此问题本身。如果您想访问其他网站，并且认为允许这样做并非不公平，则可以发表评论，我将进行仲裁。

计分

这是一个代码挑战，因此在其源代码中使用最少字节的程序将获胜。不允许出现标准漏洞。

测试用例

假设您的计算机具有正确的Internet连接并且OEIS服务器已启动并且正在运行，则以下输入和输出应该对应。

A172141, 7   -> 980
A173429, 4   -> 276
A190394, 6   -> 16
A002911, 11  -> 960
A052170, 3   -> 24
A060296, 8   -> 3
A178732, 5   -> 27
A000001, 1   -> 1
A000796, 314 -> 3
A001622, 162 -> 8
A002206, -1  -> 1

小费

• 访问B文件时，http://oeis.org/b<A-number>.txt将重定向到正确的B文件。

Bash + coreutils + w3m，51 45 42字节

w3m oeis.org/b${1:1}.txt|sed "s/^$2 //p;d"

感谢@EamonOlive打高尔夫球3个字节！

运行示例

$ bash oeis.sh A172141 7
980

怎么运行的

w3m是基于文本的Web浏览器，它以可读格式显示HTML和纯文本。与 curl不同，它默认情况下遵循重定向（这是必需的，因为oeis.org/bxxxxxx.txt重定向到oeis.org/Axxxxxx/bxxxxxx.txt），不会对STDERR产生任何杂散输出，并且具有三字节名称。

命令

w3m oeis.org/b${1:1}.txt

所需的URL，其中${1:1}第一个命令行参数不含第一个字符。

输出通过管道传递给命令

sed "s/^$2 //p;d"

提取所需的输出。s/^$2 //p尝试^$2 用空字符串替换（行首，后跟第二个命令行参数，后跟一个空格）。如果替换成功，则p打印其结果。之后，d无条件删除该图案以防止sed打印整个输入。

Perl，59个字节

($_,$v)=@ARGV;/./;say`curl oeis.org/$_/b$'.txt`=~/$v (.*)/m

需要-M5.010还是-E要跑。例如 ：

$ cat oeis.pl
($_,$v)=@ARGV;/./;say`curl oeis.org/$_/b$'.txt`=~/$v (.*)/m
$ perl -M5.010 oeis.pl A178932 5 2>&-
27

通过@Dennis answer，通过删除节省了8个字节http://，就像他一样。

CJam，36个字节

"oeis.org/b"r1>+".txt"+gN%Sf%z~\ra#=

运行示例

$ cjam oeis.cjam <<< 'A172141 7'
980

Python 2中，125个 118 113字节

7 Lynn节省了12个字节

import re,urllib2 as u;lambda x,y:re.findall("(?<=%d ).*"%y,u.urlopen("http://oeis.org/b%s.txt"%x[1:]).read())[0]

好吧，这是我自己的问题。这可能不是最佳选择，但我认为我做得不错。它创建一个匿名函数，该函数以字符串和整数作为参数，并返回字符串作为结果，如果索引超出范围，则抛出错误。

这可以做成一个124字节的完整程序。

import re,urllib2 as u;print re.findall("(?<=%d ).*"%input(),u.urlopen("http://oeis.org/b%s.txt"%raw_input()[1:]).read())[0]

这会提示用户输入。首先要求索引，然后要求序列的A号。

Python 3中，153个 146 135字节

感谢FryAmTheEggman提供了7个字节。

6字节感谢Eamon Olive。

5字节感谢Rod。

from urllib.request import*
def f(a,n):
 for l in urlopen("http://oeis.org/b%s.txt"%a[1:]):
  p,q=l.split()
  if n==p.decode():return q

这样称呼它：

print(f("A000796","314"))

在默认值为utf-8的计算机上运行。

PHP 5.6，93 92个字节

function f($i,$l){echo explode(' ',file('http://oeis.org/b'.substr($i,1).'.txt')[--$l])[1];}

这很简单。用拉动页面file()，使行在$line - 1（0-index）处爆炸，并从中打印出第二个数组元素。

稔，123个 115 113字节

import httpclient,nre,future
(a,n)=>get getContent("http://oeis.org/b"&a[1..^0]&".txt").find re "(?<="&n&r" )\d+"

这是一个lambda表达式；要使用它，必须将它作为参数传递给测试过程。此处提供了可用于测试的完整程序：

import httpclient,nre,future
proc test(x: (string, string) -> RegexMatch) = echo x("A172141", "7") # Your input here
test((a,n)=>get getContent("http://oeis.org/b"&a[1..^0]&".txt").find re "(?<="&n&r" )\d+")

期望输入为两个字符串。用法示例：

$ nim c oeis.nim
$ ./oeis
980

我们使用httpclient的getContentproc来获取OEIS b文件，然后将正则表达式用于find带有索引的行。find传回Option[RegexMatch]，因此我们用来get从中撷取值Option。echo自动进行字符串化，因此我们省略了字符串化。

Mathematica + OEIS.m，31

(OEISFunction@ToString@#;#@#2)&

用法示例： %[A172141,36]

Mathematica，85岁

#2/.Rule@@@Import["http://oeis.org/b"<>#~StringDrop~1<>".txt","Data"]~DeleteCases~{}&

用法示例： %["A002206",-1]

R，94 89字节

t=read.table(paste0("http://oeis.org/b",substring(scan(,""),2),".txt"));t[t$V1==scan(),2]

在相同的字节数中使用sprintf而不是paste0结果：

t=read.table(sprintf("http://oeis.org/b%s.txt",substring(scan(,""),2)));t[t$V1==scan(),2]

由于Plannapus节省了五个字节。

Clojure，103岁

#(read-string((re-find(re-pattern(str %2" (\\d+)"))(slurp(str"http://oeis.org/b"(subs % 1)".txt")))1)))

re-find查找第一个匹配项的正则表达式组的向量，将其用作函数并1在position处获取字符串1。read-string将字符串转换为int。我不确定这个正则表达式是否总是找到正确的行。

R，87个字节

f=function(A,n)(R<-read.table(gsub("A(\\d+)","http://oeis.org/b\\1.txt",A)))[R$V1==n,2]

使用正则表达式而不是paste或构建URL字符串sprintf。

Node.js + request，109字节

x=>n=>require('request')(`http://oeis.org/b${x.slice(1)}.txt`,(a,b)=>console.log(b.body.match(n+` (.+)`)[1]))

获取序列ID和数字。

朱莉娅88字节

x\y=match(Regex("$y (.*)"),readall(Requests.get("http://oeis.org/b$(x[2:end]).txt")))[1]

在@Dennis的帮助下打高尔夫球！

Requests.jl运行之前，请确保已安装。

ListSharp，266个字节

STRG a=READ[<here>+"\\a.txt"]
ROWS x=ROWSPLIT a BY [","]
STRG a=GETRANGE x[0] FROM [2] TO [a LENGTH]
NUMB y=<c#int.Parse(x[1])c#>
STRG a=DOWNLOAD["http://oeis.org/b"+a+".txt"]
ROWS x=ROWSPLIT a BY [<newline>]
STRG a=GETLINE x [y]
ROWS x=ROWSPLIT a BY [" "]
SHOW=x[1]

当用于Web抓取的语言需要这么多行时，这很可悲，因为ListSharp中的嵌套语句是禁忌