algorithmuscanorj

seq

Jan 4th, 2013
624
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. \\- Sequences the first terms in A198960. _R. J. Cano_, Jan 4 2012
  2. upperBound=1000;
  3. geoserie(a,n,r)=a*(1-r^(n+1))/(1-r);
  4. a198960(n)=if(n<2, 2*(n==0)+26*(n==1), geoserie(36,n-2,9)*6+26);
  5. for(j=0,upperBound,print(j," ",a198960(j)));
  6. quit();
RAW Paste Data