login
Cube roots arising in A083500.
2

%I #5 Aug 23 2014 14:08:50

%S 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,

%T 25,30,31,25,33,34,35,11,13,26,39,16,41,42,25,36,45,16,47,48,49,18,51,

%U 52,29,54,19,56,25,49,59,60,61,47,25,16,65,61,67,29,69,70,51,72,25,64,47

%N Cube roots arising in A083500.

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

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

%Y Cf. A083500.

%K nonn

%O 1,1

%A _Amarnath Murthy_ and Meenakshi Srikanth (menakan_s(AT)yahoo.com), May 03 2003

%E Edited and extended by _Robert G. Wilson v_, May 11 2003