OFFSET
0,1
EXAMPLE
===============================================================
n ... n+1 ... a(n) ... Value of d with first n+1 decimals only
===============================================================
0 ... 1 ...... 6 ..... 0.6
1 ... 2 ...... 3 ..... 0.73
2 ... 3 ...... 1 ..... 0.791
3 ... 4 ...... 4 ..... 0.8284
4 ... 5 ...... 0 ..... 0.85410
5 ... 6 ...... 3 ..... 0.872983
6 ... 7 ...... 1 ..... 0.8874821
7 ... 8 ...... 8 ..... 0.89897948
8 ... 9 ...... 3 ..... 0.908326913
9 ... 10 ..... 0 ..... 0.9160797830
10 .. 11 ..... 3 ..... 0.92261628933
11 .. 12 ..... 5 ..... 0.928203230275
12 .. 13 ..... 2 ..... 0.9330343736592
13 .. 14 ..... 7 ..... 0.93725393319377
14 .. 15 ..... 6 ..... 0.940971508067066
15 .. 16 ..... 7 ..... 0.9442719099991587
Note that if n=0 then d = golden ratio phi, minus 1 = 0.61803398874989484820...
PROG
(PARI) superdiagonal(n, n1) = { default(realprecision, n); b= ""; j=1; for(k=1, n1, v = ""; for(m=1, n, s=.1; for(x=1, n, s=k/(s+m); ); a = Vec(Str(s)); v = concat(v, a[m+2]); ); a2 = Vec(Str(v)); print1(a2[k]", "); ) }
CROSSREFS
KEYWORD
easy,nonn,base
AUTHOR
Cino Hilliard, Jul 06 2003
EXTENSIONS
Edited (with examples) by Omar E. Pol, Mar 27 2008
STATUS
approved