A223706 Conjectured least number k such that prime(n) is the largest divisor of k^3 - 1, or 0 if there is no such k.

0, 0, 0, 2, 0, 3, 18, 7, 0, 30, 5, 10, 0, 6, 6205, 0, 178, 13, 29, 0, 8, 23, 0, 0, 35, 102, 46, 429, 45, 0, 19, 263, 0, 42, 7600, 32, 12, 58, 1083163, 520, 0, 48, 880129, 84, 5320, 92, 14, 39, 13848, 94, 4195, 718, 15, 21085, 772, 502068, 5381, 28, 116, 5579256

Offset: 1

Author

T. D. Noe, Apr 03 2013

Keywords

• nonn

Comments

We allowed k to vary up to 10^7.

Crossrefs

Cf. A223701-A223707 (related sequences).

Programs

Mathematica

nn = 60; t = Table[0, {nn}]; ps = Prime[Range[nn]]; Do[num = n^3 - 1; j = 0; lastP = 0; While[num > 0 && j < nn, j++; p = ps[[j]]; While[Mod[num, p] == 0, lastP = j; num = num/p]];If[num == 1 && t[[lastP]] == 0, t[[lastP]] = n; Print[{lastP, n}]], {n, 10^7}]; t