|
%I #4 Mar 30 2012 17:30:54
%S 27,53,179,305,431,557,683,809,835,935,961,1087,1213,1339,1465,1591,
%T 1717,1743,1843,1869,1995,2121,2247,2373,2499,2525,2625,2651,2777,
%U 2903,3029,3155,3281,3407,3433,3533,3559,3685,3811,3937,4063,4189,4215,4315
%N Numbers n for which the first difference sequence of A054040 decreases.
%C Same as asking when the second difference of A054040 is -1.
%e A054040(27)-A054040(26) = 13 while A054040(26)-A054040(25) = 14, therefore the first entry is 27.
%t 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 Cf. A054040.
%K nonn
%O 1,1
%A _Robert G. Wilson v_, Apr 14 2003
|
