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,1

Comments

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

Links

Table of n, a(n) for n=1..44.

Example

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

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

Crossrefs

Cf. A054040.

Sequence in context: A160845 A216224 A255364 * A183032 A040702 A305548

Adjacent sequences: A082912 A082913 A082914 * A082916 A082917 A082918

Keyword

nonn

Author

Robert G. Wilson v, Apr 14 2003

Status

approved