A260564 Numbers n such that (n^53+1)/(n+1) is prime.

10, 14, 40, 57, 111, 119, 406, 447, 475, 620, 646, 839, 848, 866, 909, 997, 1086, 1095, 1180, 1318, 1319, 1332, 1418, 1447, 1472, 1534, 1617, 1681, 1684, 1735, 1788, 1955, 2037, 2118, 2120, 2163, 2169, 2170, 2390, 2407, 2440, 2498, 2700, 2709, 2716, 2761, 2999

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^53 + 1) div (n + 1))]

Mathematica

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

PARI

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