OFFSET
1,3
LINKS
Zak Seidov, Table of n, a(n) for n = 1..10000
Zak Seidov,20 related sequences.
MATHEMATICA
With[{m = 4, nn = 120}, Table[SelectFirst[Range@ nn, PrimeQ[# n^m + 1] &], {n, nn}]] (* Michael De Vlieger, Mar 26 2016, Version 10 *)
sk[n_]:=Module[{k=1, c=n^4}, While[!PrimeQ[k*c+1], k++]; k]; Array[sk, 120] (* Harvey P. Dale, Jun 05 2021 *)
PROG
(PARI) {m=4; for(n=1, 10000, k=1; while(!isprime(k*n^m+1), k++);
write("b270927.txt", n" "k))} \\ for b-file - Zak Seidov, Mar 26 2016
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, Mar 26 2016
STATUS
approved