A066020 a(n) is the smallest k such that (k^5 + 1)/(n^5 + 1) is an integer > 1.

3, 8, 27, 64, 125, 118, 343, 512, 729, 1000, 1331, 1728, 2197, 2744, 3375, 4096, 4913, 5832, 6859, 8000, 9261, 10648, 12167, 13824, 15625, 11663, 19683, 21952, 11189, 27000, 29791, 32768, 35937, 39304, 42875, 46656, 50653, 54872, 59319, 64000

Offset

1,1

Links

Harry J. Smith, Table of n, a(n) for n = 1..200

Mathematica

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

Prog

(PARI) { for (n=1, 200, f=n^5 + 1; a=n + 1; while (frac((a^5 + 1)/f) !=0, a++); write("b066020.txt", n, " ", a) ) } \\ Harry J. Smith, Nov 06 2009

Crossrefs

Cf. A065964.

Sequence in context: A128894 A118165 A296258 * A066018 A066023 A347830

Adjacent sequences: A066017 A066018 A066019 * A066021 A066022 A066023

Keyword

easy,nonn

Author

Robert G. Wilson v, Dec 11 2001

Status

approved