A083501 Cube roots arising in A083500.

2, 3, 4, 5, 6, 7, 4, 9, 7, 11, 12, 13, 9, 9, 16, 17, 18, 7, 11, 21, 16, 23, 24, 25, 26, 9, 10, 25, 30, 31, 25, 33, 34, 35, 11, 13, 26, 39, 16, 41, 42, 25, 36, 45, 16, 47, 48, 49, 18, 51, 52, 29, 54, 19, 56, 25, 49, 59, 60, 61, 47, 25, 16, 65, 61, 67, 29, 69, 70, 51, 72, 25, 64, 47

Offset: 1

Author

Amarnath Murthy and Meenakshi Srikanth (menakan_s(AT)yahoo.com), May 03 2003

Keywords

• nonn

Comments

a(n) < n+1 and a(n) = n+1 over half of the time.

Crossrefs

Cf. A083500.

Programs

Mathematica

Do[k = 0; While[i = n(n + k) + 1; ! IntegerQ[i^(1/3)], k++ ]; Print[i^(1/3)], {n, 1, 75}]

Extensions

Edited and extended by Robert G. Wilson v, May 11 2003