1,1

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

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

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

Cf. A083500.

Sequence in context: A272573 A328477 A319999 * A007922 A007948 A038389

Adjacent sequences: A083498 A083499 A083500 * A083502 A083503 A083504

nonn

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

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

approved