A260563 Numbers n such that (n^47+1)/(n+1) is prime.

6, 7, 17, 90, 126, 139, 143, 257, 293, 295, 319, 387, 482, 519, 603, 720, 819, 884, 896, 903, 905, 921, 952, 954, 956, 1042, 1058, 1147, 1170, 1237, 1253, 1279, 1295, 1343, 1366, 1370, 1406, 1465, 1514, 1593, 1595, 1607, 1609, 1622, 1701, 1705, 1709, 1736, 1772

Offset: 1

Author

Tim Johannes Ohrtmann, Jul 29 2015

Keywords

• nonn

Links

• Tim Johannes Ohrtmann, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A055494, A246392, A250174, A250178, A250181, A250185, A250187, A250193, A260558-A260573.

Programs

Magma

[n: n in [1..10000] |IsPrime((n^47 + 1) div (n + 1))]

Mathematica

Select[Range[1, 10000], PrimeQ[(#^47 + 1)/(# + 1)] &]

PARI

for(n=1,10000, if(isprime((n^47+1)/(n+1)), print1(n,", ")))