A250185 -id:A250185 - cp's OEIS frontend

A260558 Numbers k such that (k^29+1)/(k+1) is prime.

7, 15, 25, 62, 119, 123, 154, 245, 285, 294, 295, 357, 371, 476, 626, 664, 690, 708, 723, 737, 768, 783, 803, 825, 826, 835, 841, 842, 867, 871, 897, 904, 934, 953, 1066, 1069, 1088, 1097, 1108, 1183, 1197, 1202, 1259, 1302, 1364, 1461, 1497, 1528, 1559, 1638

Offset: 1

Tim Johannes Ohrtmann, Jul 29 2015

nonn

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

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

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

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

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

A260573 Numbers n such that (n^97+1)/(n+1) is prime.

Original entry on oeis.org

70, 121, 300, 317, 348, 404, 412, 460, 515, 605, 839, 843, 904, 953, 1130, 1148, 1342, 1466, 1674, 1779, 1855, 2080, 2108, 2193, 2466, 2519, 2597, 2633, 2697, 2756, 2793, 2799, 2846, 2877, 2899, 2929, 2952, 3081, 3244, 3283, 3300, 3315, 3636, 3730, 3739, 3833

Offset: 1

Tim Johannes Ohrtmann, Jul 29 2015

nonn

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

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

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

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

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

A250177 Numbers n such that Phi_21(n) is prime, where Phi is the cyclotomic polynomial.

Original entry on oeis.org

3, 6, 7, 12, 22, 27, 28, 35, 41, 59, 63, 69, 112, 127, 132, 133, 136, 140, 164, 166, 202, 215, 218, 276, 288, 307, 323, 334, 343, 377, 383, 433, 474, 479, 516, 519, 521, 532, 538, 549, 575, 586, 622, 647, 675, 680, 692, 733, 790, 815, 822, 902, 909, 911, 915, 952, 966, 1025, 1034, 1048, 1093

Offset: 1

Eric Chen, Dec 24 2014

nonn

G. C. Greubel, Table of n, a(n) for n = 1..10000

Cf. A008864 (1), A006093 (2), A002384 (3), A005574 (4), A049409 (5), A055494 (6), A100330 (7), A000068 (8), A153439 (9), A250392 (10), A162862 (11), A246397 (12), A217070 (13), A250174 (14), A250175 (15), A006314 (16), A217071 (17), A164989 (18), A217072 (19), A250176 (20), this sequence (21), A250178 (22), A217073 (23), A250179 (24), A250180 (25), A250181 (26), A153440 (27), A250182 (28), A217074 (29), A250183 (30), A217075 (31), A006313 (32), A250184 (33), A250185 (34), A250186 (35), A097475 (36), A217076 (37), A250187 (38), A250188 (39), A250189 (40), A217077 (41), A250190 (42), A217078 (43), A250191 (44), A250192 (45), A250193 (46), A217079 (47), A250194 (48), A250195 (49), A250196 (50), A217080 (53), A217081 (59), A217082 (61), A006315 (64), A217083 (67), A217084 (71), A217085 (73), A217086 (79), A153441 (81), A217087 (83), A217088 (89), A217089 (97), A006316 (128), A153442 (243), A056994 (256), A056995 (512), A057465 (1024), A057002 (2048), A088361 (4096), A088362 (8192), A226528 (16384), A226529 (32768), A226530 (65536), A251597 (131072), A244150 (524287), A243959 (1048576).

Cf. A085398 (Least k>1 such that Phi_n(k) is prime).

a250177[n_] := Select[Range[n], PrimeQ@Cyclotomic[21, #] &]; a250177[1100] (* Michael De Vlieger, Dec 25 2014 *)

{is(n)=isprime(polcyclo(21,n))};
for(n=1,100, if(is(n)==1, print1(n, ", "), 0)) \\ G. C. Greubel, Apr 14 2018

A260559 Numbers k such that (k^31+1)/(k+1) is prime.

Original entry on oeis.org

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

Tim Johannes Ohrtmann, Jul 29 2015

nonn

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

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

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

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

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

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

Original entry on oeis.org

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

Tim Johannes Ohrtmann, Jul 29 2015

nonn

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

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

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

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

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

A260571 Numbers n such that (n^83+1)/(n+1) is prime.

Original entry on oeis.org

49, 75, 458, 471, 634, 734, 798, 809, 932, 1139, 1268, 1400, 1498, 1963, 1989, 2112, 2177, 2233, 2252, 2349, 2365, 2446, 2729, 2841, 2861, 2887, 3013, 3048, 3239, 3262, 3403, 3464, 3703, 3855, 3883, 4534, 5147, 5189, 5523, 5611, 5778, 6041, 6200, 6336, 6682, 7068

Offset: 1

Tim Johannes Ohrtmann, Jul 29 2015

nonn

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

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

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

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

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

A260572 Numbers n such that (n^89+1)/(n+1) is prime.

Original entry on oeis.org

16, 20, 93, 195, 227, 325, 465, 758, 888, 911, 1075, 1301, 1590, 1640, 1783, 1807, 2168, 2204, 2231, 2376, 2528, 2591, 2627, 2648, 2909, 2959, 3063, 3109, 3650, 3688, 3709, 3784, 3910, 3943, 4132, 4162, 4385, 4417, 4443, 4613, 5183, 5465, 5574, 5750, 5854, 5975

Offset: 1

Tim Johannes Ohrtmann, Jul 29 2015

nonn

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

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

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

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

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

A260561 Numbers n such that (n^41+1)/(n+1) is prime.

Original entry on oeis.org

61, 63, 99, 144, 230, 312, 360, 401, 413, 424, 451, 515, 542, 567, 610, 618, 622, 651, 690, 732, 817, 871, 1007, 1100, 1156, 1278, 1403, 1427, 1460, 1535, 1572, 1604, 1681, 1742, 1802, 1820, 1847, 1903, 1910, 1913, 1978, 2019, 2104, 2134, 2152, 2169, 2309, 2383

Offset: 1

Tim Johannes Ohrtmann, Jul 29 2015

nonn

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

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

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

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

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

A260562 Numbers n such that (n^43+1)/(n+1) is prime.

Original entry on oeis.org

2, 3, 6, 22, 59, 83, 91, 95, 120, 148, 195, 196, 201, 247, 252, 264, 315, 360, 378, 458, 555, 680, 792, 893, 1025, 1088, 1158, 1171, 1240, 1280, 1416, 1437, 1632, 1661, 1677, 1681, 1849, 1946, 1960, 2007, 2090, 2092, 2225, 2242, 2244, 2377, 2483, 2547, 2596, 2641

Offset: 1

Tim Johannes Ohrtmann, Jul 29 2015

nonn

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

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

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

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

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

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

Original entry on oeis.org

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

Tim Johannes Ohrtmann, Jul 29 2015

nonn

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

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

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

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

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

cp's OEIS Frontend

A260558 Numbers k such that (k^29+1)/(k+1) is prime.

Views

Author

Keywords

Links

Crossrefs

Programs

Magma

Mathematica

PARI

A260573 Numbers n such that (n^97+1)/(n+1) is prime.

Views

Author

Keywords

Links

Crossrefs

Programs

Magma

Mathematica

PARI

A250177 Numbers n such that Phi_21(n) is prime, where Phi is the cyclotomic polynomial.

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica

PARI

A260559 Numbers k such that (k^31+1)/(k+1) is prime.

Views

Author

Keywords

Links

Crossrefs

Programs

Magma

Mathematica

PARI

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

Views

Author

Keywords

Links

Crossrefs

Programs

Magma

Mathematica

PARI

A260571 Numbers n such that (n^83+1)/(n+1) is prime.

Views

Author

Keywords

Links

Crossrefs

Programs

Magma

Mathematica

PARI

A260572 Numbers n such that (n^89+1)/(n+1) is prime.

Views

Author

Keywords

Links

Crossrefs

Programs

Magma

Mathematica

PARI

A260561 Numbers n such that (n^41+1)/(n+1) is prime.

Views

Author

Keywords

Links

Crossrefs

Programs

Magma

Mathematica

PARI