A082915 Numbers n for which the first difference sequence of A054040 decreases.

27, 53, 179, 305, 431, 557, 683, 809, 835, 935, 961, 1087, 1213, 1339, 1465, 1591, 1717, 1743, 1843, 1869, 1995, 2121, 2247, 2373, 2499, 2525, 2625, 2651, 2777, 2903, 3029, 3155, 3281, 3407, 3433, 3533, 3559, 3685, 3811, 3937, 4063, 4189, 4215, 4315

Offset: 1

Author

Robert G. Wilson v, Apr 14 2003

Keywords

• nonn

Comments

Same as asking when the second difference of A054040 is -1.

Examples

			A054040(27)-A054040(26) = 13 while A054040(26)-A054040(25) = 14, therefore the first entry is 27.
		

Crossrefs

Cf. A054040.

Programs

Mathematica

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}]