|
%I #15 Jun 08 2022 03:20:09
%S 1,2,4,8,12,16,24,32,40,48,56,64,72,80,88,96,104,112,128,136,144,152,
%T 160,176,184,192,200,208,224,232,248,256,272,288,304,320,352,368,384,
%U 400,416,448,464,480,496,512,544,576,592,608,640,656,688,704,752,768
%N Numbers k such that k! and 2^k+1 are relatively prime.
%H Amiram Eldar, <a href="/A070173/b070173.txt">Table of n, a(n) for n = 1..3000</a>
%t Select[Range[1000],CoprimeQ[#!,2^#+1]&]
%o (PARI) for(n=1,1255,if(gcd(n!,2^n+1)==1,print1(n,",")))
%Y Cf. A000051, A000142, A069180.
%K easy,nonn
%O 1,2
%A _Benoit Cloitre_, May 06 2002
|
