A068482 -id:A068482 - cp's OEIS frontend

A068480 Numbers n such that gcd(n!-1,2^n+1)>1.

1, 29, 41, 53, 69, 105, 125, 141, 153, 165, 189, 233, 249, 273, 293, 321, 329, 405, 413, 429, 441, 453, 485, 581, 585, 629, 641, 653, 713, 729, 741, 761, 765, 809, 813, 849, 893, 905, 989, 993, 1005, 1013, 1041, 1049, 1089, 1121, 1125, 1133, 1169, 1205

Offset: 1

Benoit Cloitre, Mar 10 2002

nonn

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

Cf. A000051 (2^n+1), A033312 (n!-1).

Cf. A068481, A068482, A068483.

Filtered([1..1230],n->Gcd(Factorial(n)-1,2^n+1)>1); # Muniru A Asiru, Oct 16 2018

select(n->gcd(factorial(n)-1,2^n+1)>1,[$1..1230]); # Muniru A Asiru, Oct 16 2018

Select[Range[2500], GCD[#! - 1, 2^# + 1] > 1 &] (* G. C. Greubel, Oct 15 2018 *)

isok(n) = gcd(n!-1, 2^n+1) > 1; \\ Michel Marcus, Oct 16 2018

A068481 Numbers k such that gcd(k!+1, 2^k+1) > 1.

Original entry on oeis.org

5, 9, 21, 33, 65, 81, 89, 113, 173, 209, 221, 245, 261, 281, 285, 309, 341, 345, 369, 393, 473, 509, 525, 545, 561, 593, 645, 725, 749, 785, 789, 833, 861, 873, 933, 953, 965, 1001, 1065, 1101, 1113, 1173, 1185, 1265, 1289, 1329, 1341, 1401, 1409, 1469

Offset: 1

Benoit Cloitre, Mar 10 2002

Amiram Eldar, Table of n, a(n) for n = 1..10000 (terms 1..1000 from G. C. Greubel)

Cf. A000051 (2^n+1), A038507 (n!+1).

Cf. A068480, A068482, A068483.

Filtered([1..1470],n->Gcd(Factorial(n)+1,2^n+1)>1); # Muniru A Asiru, Oct 16 2018

select(n->gcd(factorial(n)+1,2^n+1)>1,[$1..1470]); # Muniru A Asiru, Oct 16 2018

Select[Range[2500], GCD[#! + 1, 2^# + 1] > 1 &] (* G. C. Greubel, Oct 15 2018 *)

isok(n) = gcd(n!+1,2^n+1) > 1; \\ Michel Marcus, Oct 16 2018

A068483 Numbers n such that gcd(n!-1,2^n-1)>1.

Original entry on oeis.org

11, 15, 35, 75, 83, 111, 119, 135, 155, 179, 219, 231, 243, 323, 359, 375, 455, 459, 483, 491, 515, 519, 525, 531, 551, 611, 615, 639, 651, 663, 699, 719, 723, 735, 771, 779, 783, 803, 879, 915, 923, 939, 999, 1043, 1103, 1119, 1175, 1199, 1271, 1323

Offset: 1

Benoit Cloitre, Mar 10 2002

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

Cf. A000225 (2^n-1), A033312 (n!-1).

Cf. A068480, A068481, A068482.

Select[Range[2500], GCD[#! - 1, 2^# - 1] > 1 &] (* G. C. Greubel, Oct 15 2018 *)

isok(n) = gcd(n!-1,2^n-1) > 1; \\ Michel Marcus, Oct 16 2018

cp's OEIS Frontend

A068480 Numbers n such that gcd(n!-1,2^n+1)>1.

Views

Author

Keywords

Links

Crossrefs

Programs

GAP

Maple

Mathematica

PARI

A068481 Numbers k such that gcd(k!+1, 2^k+1) > 1.

Views

Author

Keywords

Links

Crossrefs

Programs

GAP

Maple

Mathematica

PARI

A068483 Numbers n such that gcd(n!-1,2^n-1)>1.

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica

PARI