A260559 Numbers k such that (k^31+1)/(k+1) is prime.
2, 6, 10, 36, 65, 74, 78, 83, 106, 115, 120, 148, 161, 163, 168, 176, 189, 194, 197, 266, 270, 288, 331, 385, 399, 407, 410, 412, 413, 431, 468, 513, 524, 546, 569, 572, 578, 581, 600, 611, 625, 626, 647, 719, 723, 756, 832, 834, 849, 922, 986, 1006, 1007, 1047
Offset: 1
Keywords
Links
- Tim Johannes Ohrtmann, Table of n, a(n) for n = 1..10000
Crossrefs
Programs
-
Magma
[n: n in [1..10000] |IsPrime((n^31 + 1) div (n + 1))];
-
Mathematica
Select[Range[1, 10000], PrimeQ[(#^31 + 1)/(# + 1)] &]
-
PARI
for(n=1,10000, if(isprime((n^31+1)/(n+1)), print1(n,", ")))