A260560 Numbers n such that (n^37+1)/(n+1) is prime.

16, 19, 21, 49, 56, 63, 71, 74, 77, 83, 92, 96, 99, 160, 172, 197, 198, 230, 241, 280, 283, 415, 425, 448, 490, 520, 627, 691, 735, 784, 803, 829, 842, 853, 871, 872, 893, 894, 973, 981, 989, 1043, 1060, 1061, 1071, 1179, 1182, 1203, 1290, 1299, 1317, 1370, 1389

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

Mathematica

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

PARI

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