A224365 a(n) = A063674(n+1) - A063674(n).
10, 3, 3, 3, 157, 22, 22, 22, 22, 22, 22, 22, 22, 51808, 355, 355, 355, 355, 355, 355, 355, 355, 355, 355, 355, 355, 355, 355, 355, 355, 355, 355, 355, 355, 355, 355, 355, 355, 355, 355, 355, 355, 355, 355, 355, 355, 355, 355
Offset: 1
Links
- Vincenzo Librandi, Table of n, a(n) for n = 1..168
Programs
-
Mathematica
A224365 = Reap[ For[ delta0 = 1; d = 1, d < 10^5, d++, delta = Abs[Pi - Round[Pi*d]/d]; If[ delta < delta0, Sow[ Round[Pi*d]]; delta0 = delta]]][[2, 1]] // Differences (* Jean-François Alcover, Apr 10 2013 *)
Comments