[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