Statistics of OEIS

[Michele Dondi]

Sorry: I both incorrectly sent this message to the list (whereas it was 
meant for the OP only) and forgot attaching the script. For completeness 
here it is.

On Thu, 18 Nov 2004, Michele Dondi wrote:

> All in all I'd rewrite the script as the one attached here. You can call it 
> directly as
>
>  ./cauthor.pl eisBTfry00*

While we are at it, I get out of all of the files

27425 njas
8279 Clark Kimberling
4375 Amarnath Murthy
2946 Labos E.
2828 David W. Wilson
2706 Benoit Cloitre
2405 Olivier Gerard
2391 Robert G. Wilson v
2252 Patrick De Geest
2228 Reinhard Zumkeller
1537 Patrick Demichel
1331 Paul Barry
1306 Henry Bottomley
1251 Wolfdieter Lang
1105 Christian G. Bower

Of course this is only the top of the list and the caveat at the end of 
the other mail still applies. Maybe something should be done to 
standardize the %A line for more reliable parsing...


Michele
-- 
{$_=pack'B8'x25,unpack'A8'x32,$a^=sub{pop^pop}->(map substr
(($a||=join'',map--$|x$_,(unpack'w',unpack'u','G^<R<Y]*YB='
.'KYU;*EVH[.FHF2W+#"\Z*5TI/ER<Z`S(G.DZZ9OX0Z')=~/./g)x2,$_,
256),7,249);s/[^\w,]/ /g;$ \=/^J/?$/:"\r";print,redo}#JAPH,
-------------- next part --------------
A non-text attachment was scrubbed...
Name: cauthor.pl
Type: application/x-perl
Size: 275 bytes
Desc: 
URL: <http://list.seqfan.eu/pipermail/seqfan/attachments/20041118/aee67ab2/attachment-0001.bin>