login
(a(n)^6+1)/(n^6+1) is the smallest integer > 1.
1

%I #5 Mar 30 2012 17:30:37

%S 3,7,27,64,125,119,343,177,729,1000,1331,1728,2197,2744,3375,4096,

%T 4913,5832,6859,8000,9261,10648,12167,13824,15625,17576,19683,21952,

%U 24389,27000,29791,32768,35937,39304,42875,46656,50653,54872,59319,64000

%N (a(n)^6+1)/(n^6+1) is the smallest integer > 1.

%t Do[k = 1; While[m = (k^6 + 1)/(n^6 + 1); m < 2 || !IntegerQ[m], k++ ]; Print[k], {n, 1, 40} ]

%Y Cf. A065964, A098239.

%K easy,nonn

%O 1,1

%A _Robert G. Wilson v_, Dec 11 2001