A096295 a(1) = 2, a(n) = a(n-1) + 3*(a(n-1)-floor(a(n-1)^(1/3))^3).

2, 5, 17, 44, 95, 188, 377, 479, 887, 1361, 1451, 1811, 2060, 3056, 3992, 5843, 5876, 6008, 6536, 8648, 10592, 14585, 16868, 20597, 23339, 27500, 29000, 35000, 41696, 48872, 55520, 57464, 65240, 68960, 69077, 69545, 71417, 78905, 93356, 100049

Offset

1,1

Comments

A cubic version of the Weintraub recursion.

Links

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

Steven H. Weintraub, An Interesting Recursion, Amer. Math. Monthly, v 111, no. 6, 2004, page 528.

Mathematica

digits=200
a[n_Integer?Positive] := a[n] = a[n-1] + 3*(a[n-1] - Floor[a[n-1]^(1/3)]^3)
a[1] = 2
a0=Table[a[n], {n, 1, digits}]

Crossrefs

Sequence in context: A136194 A056304 A063106 * A215580 A275210 A219554

Adjacent sequences: A096292 A096293 A096294 * A096296 A096297 A096298

Keyword

nonn,easy

Author

Roger L. Bagula, Jun 20 2004

Extensions

Name edited by Michel Marcus, Jun 03 2019

Status

approved