[seqfan] Re: Help with translation wanted
Meeussen Wouter (bkarnd)
wouter.meeussen at vandemoortele.com
Tue Aug 10 13:01:08 CEST 2010
Translation:
a(r,c)=0 /; c>r
a(r,c)=1 /; r<=3
a(r,1)=sum(µ(k),k=1..r)
a(r,c)=a(r,c-1)-sum(a(r-j,c), j=1..c-1)/; c<=3
a(r,c)=sum(a(r-j,c-1), j=1..c-2)-sum(a(r-j,c), j=1..c-1)
in Mathematica:
Clear[a];
a[r_,c_]:=0 /; c>r;
a[r_,c_]:=1 /; r<=3;
a[r_,1]:=Sum[MoebiusMu[k],{k,0,r-1}];
a[r_,c_]:=a[r,c-1]-Sum[a[r-j,c], {j,1,c-1}]/; c<=3;
a[r_,c_]:=a[r,c]=Sum[a[r-j,c-1], {j,1,c-2}]-Sum[a[r-j,c], {j,1,c-1}];
(m=Table[a[i,j],{i,14},{j,14}])//ColumnForm
tested & validated,
Wouter.
-----Original Message-----
From: seqfan-bounces at list.seqfan.eu [mailto:seqfan-bounces at list.seqfan.eu] On Behalf Of Mats Granvik
Sent: maandag 9 augustus 2010 12:29
To: seqfan at list.seqfan.eu
Subject: [seqfan] Help with translation wanted
Hello seqfans,
Yesterday I made this spreadsheet formula in Excel for calculating the Mertens function as an invariant:
=if(row()>=column(); if(row()<=3; 1; if(column()=1; randbetween(-9; 9); if(or(column()=2; column()=3); sum(indirect(address(row(); column()-1; 4)))-sum(indirect(address(row()-column()+1; column(); 4)&":"&address(row()-1; column(); 4); 4)); sum(indirect(address(row()-column()+2; column()-1; 4)&":"&address(row()-1; column()-1; 4); 4))-sum(indirect(address(row()-column()+1; column(); 4)&":"&address(row()-1; column(); 4); 4))))); 0)
Does anyone know how to translate it into oeis-language?
The formula can be found in this table:
http://www.research.att.com/~njas/sequences/A180050
A related table:
http://www.research.att.com/~njas/sequences/A180051
Best regards,
Mats Granvik
_______________________________________________
Seqfan Mailing list - http://list.seqfan.eu/
===============================
This email is confidential and intended solely for the use of the individual to whom it is addressed.
If you are not the intended recipient, be advised that you have received this email in error and that any use, dissemination, forwarding, printing, or copying of this email is strictly prohibited.
You are explicitly requested to notify the sender of this email that the intended recipient was not reached.
More information about the SeqFan
mailing list