|
%I #9 Apr 23 2020 03:30:18
%S 1,2,4,6,10,12,16,18,22,28,30,36,38,40,42,43,45,46,47,49,52,53,54,56,
%T 58,60,66,68,70,72,76,78,82,84,88,96,97,99,100,102,106,108,110,112,
%U 118,120,121,123,124,126,130,132,136,138,142,148,150,154,156,162,166,169,172
%N Numbers n such that there is at least one k dividing (n-1)!-1 (n<=k<=2n).
%o (PARI) for(n=1,250,if(sum(k=n,2*n,if(((n-1)!-1)%k,0,1))>0,print1(n,",")))
%Y Cf. A085468 (odd terms).
%K nonn
%O 1,2
%A _Benoit Cloitre_, Aug 14 2003
|
