This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A082915 #4 Mar 30 2012 17:30:54 %S A082915 27,53,179,305,431,557,683,809,835,935,961,1087,1213,1339,1465,1591, %T A082915 1717,1743,1843,1869,1995,2121,2247,2373,2499,2525,2625,2651,2777, %U A082915 2903,3029,3155,3281,3407,3433,3533,3559,3685,3811,3937,4063,4189,4215,4315 %N A082915 Numbers n for which the first difference sequence of A054040 decreases. %C A082915 Same as asking when the second difference of A054040 is -1. %e A082915 A054040(27)-A054040(26) = 13 while A054040(26)-A054040(25) = 14, therefore the first entry is 27. %t A082915 k = s = a = b = c = 0; Do[m = n; While[s < n, k++; s = N[s + 1/Sqrt[k], 50]]; a = b; b = c; c = k; If[2b - a > c, Print[n]], {n, 1, 4400}] %Y A082915 Cf. A054040. %K A082915 nonn %O A082915 1,1 %A A082915 _Robert G. Wilson v_, Apr 14 2003