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

Comments

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

Links

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

Mathematica

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

Crossrefs

Cf. A083500.

Sequence in context: A328477 A332230 A319999 * A007922 A007948 A377518

Adjacent sequences: A083498 A083499 A083500 * A083502 A083503 A083504

Keyword

nonn

Author

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

Extensions

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

Status

approved