1,577 reputation
920
bio website mobiusfunction.wordpress.com
location
age
visits member for 3 years, 1 month
seen 27 mins ago

Table[Limit[ Zeta[s]*Sum[(1 - If[Mod[k, n] == 0, n, 0])/k^(s - 1), {k, 1, n}], s -> 1], {n, 1, 12}]

Table[Limit[ Zeta[s] Total[1/Divisors[n]^(s - 1)*MoebiusMu[Divisors[n]]], s -> 1], {n, 1, 32}]

https://oeis.org/A177885

This Excel Spreadsheet formula uses Andre LeClaire's formula to approximate the Riemann zeta zeros:

=IF(OR(ROW()=1; COLUMN()=1);0; IF(ROW()>=COLUMN();EXP(-(1-11/8/(COLUMN()-1))/EXP(1)*SUM(INDIRECT(ADDRESS(ROW()-COLUMN()+1; COLUMN(); 4)&":"&ADDRESS(ROW()-1; COLUMN(); 4); 4)));0))

(European dot-comma)

you need to divide the result with: /2/PI()/EXP(1) and take the reciprocal. tetration this is.


1,577 Reputation

5 today
19 yesterday
2 Apr 13
5 Mar 24
15 Mar 23
15 Mar 22
22 Mar 21
5 Mar 17
5 Mar 12
15 Mar 11
10 Mar 3
34 Mar 1
5 Feb 24
2 Feb 18
5 Feb 17
15 Feb 14
15 Feb 9
10 Feb 2
5 Jan 28
10 Jan 22
10 Jan 19
5 Jan 17
10 Jan 11
10 Jan 9
15 Jan 6
15 Jan 5
15 Dec 14 '13
10 Nov 29 '13
25 Nov 28 '13
5 Nov 25 '13