

A335970


Index of the least Wendt determinant (A048954(k)) that is divisible by the least prime of the form k*prime(n) + 1.


0



3, 10, 26, 28, 32, 46, 38, 58, 44, 110, 22, 88, 122, 70, 134, 44, 164, 70, 106, 212, 94, 70, 146, 128, 208, 62, 142, 116, 310, 56, 94, 212, 86, 280, 320, 262, 316, 82, 110, 122, 182, 160, 362, 142, 284, 280, 340, 112, 56, 64, 254, 308, 250, 368, 104, 272, 242, 292, 226
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,1


COMMENTS

It has been conjectured by Michael B Rees that for every prime p there exists a Wendt determinant index j such that for all j < k primes of the form j*p + 1 will not divide Wendt(j). This sequence gives the least index k such that Wendt(k) is divisible by the least prime of the form k*p + 1 for each prime p = prime(n).


LINKS



EXAMPLE

a(2) = 10 gives k = 10, Wendt(10) = 210736858987743 = 1*3*11^9*31^3 and p = prime(2) = 3. Hence with k = 10 and p = 3, Wendt(k) is the least Wendt determinant divisible by the least prime of the form p*k + 1.


MATHEMATICA

w[n_] := Module[{x}, Resultant[x^n1, (1+x)^n1, x]]; lst = {}; Do[q=1; While[Mod[q, 6]==0!PrimeQ[r=1+Prime[n]*q]!IntegerQ[w[q]/r], q++]; AppendTo[lst, q], {n, 1, 60}]; lst


CROSSREFS



KEYWORD

nonn


AUTHOR



STATUS

approved



