diff --git a/plugins/oeis.pm b/plugins/oeis.pm
new file mode 100644
index 0000000..c06d63a
--- /dev/null
+++ b/plugins/oeis.pm
@@ -0,0 +1,55 @@
+# OEIS plugin to buubot3 by b_jonas
+
+use warnings;
+use strict;
+use CGI;
+use LWP::Simple;
+use WWW::Shorten 'Metamark';
+
+sub {
+	my($said) = @_;
+	my $q = $said->{"body"};
+
+	warn 1;
+	if( $q =~ /^\s*(?:(?:help|wtf|\?|\:)\s*)?$/i )
+	{
+		print "see http://tinyurl.com/7xmvs and http://tinyurl.com/2blo2w";
+		return;
+	}
+	warn 2;
+	my $uri = "http://www.research.att.com/~njas/sequences/?q=" . CGI::escape($q) . "&n=1&fmt=3";
+	local $_ = get($uri); # change this in the real plugin
+	warn 2.5;
+	if (/^Results .* of (\d+) results/mi) {
+		my $nrfound = $1;
+		unless( /^%N (\S+) (.*)/m )
+		{
+			print "Reply from OEIS in unknown format 2";
+			return;
+		}
+		warn 3;
+		my($anum, $title) = ($1, $2);
+		my $elts_re = /^%V/m ? qr/^%[VWX] \S+ (.*)/m : qr/^%[STU] \S+ (.*)/m;
+		my $elts = join ",", /$elts_re/g;
+		$elts =~ s/,,+/,/g;
+		warn 3.5;
+		if (1 == $nrfound) {
+			my $outuri = sprintf "http://tinyurl.com/4zq4q/%.10s", $anum;
+			print sprintf "%s %.256s: %.512s", $outuri, $title, $elts;
+		} else {
+			my $outuri1 = "http://www.research.att.com/~njas/sequences/?q=" . CGI::escape($q);
+			warn 3.6;
+			my $outuri = makeashorterlink($outuri1) || $outuri1;
+			print sprintf "%s %.10s(1/%d) %.256s: %.512s", $outuri, $anum, $nrfound, $title, $elts;
+		}
+	} elsif (/^no matches/mi) {
+		print "No matches found";
+		warn 4
+	} else {
+	warn 5;
+		print "Reply from OEIS in unknown format";
+	}
+}
+
+__DATA__
+Search for a sequence in the On-Line Encyclopedia of Integer Sequences (http://tinyurl.com/2blo2w) Syntax, oeis 1,1,2,3,5