%I #10 Feb 16 2019 06:54:16
%S 1,6,22,25,28,30,40,42,46,52,58,60,68,70,72,78,87,88,96,98,102,105,
%T 106,112,114,122,126,128,130,133,138,145,148,150,156,162,166,172,178,
%U 182,190,192,196,198,212,213,217,218,222,225,226,228,232,238,240,250,262
%N n+1 does not divide sigma(n!).
%H Vaclav Kotesovec, <a href="/A078118/b078118.txt">Table of n, a(n) for n = 1..8822</a>
%H Vaclav Kotesovec, <a href="/A078118/a078118.jpg">Plot of a(n)/n for n = 1..8000</a>
%F a(n) seems to be asymptotic to c*n with c=4.8....
%t Select[Range[300], Not[Divisible[DivisorSigma[1, #!], # + 1]] &] (* _Vaclav Kotesovec_, Feb 16 2019 *)
%Y Cf. A062569.
%K nonn
%O 1,2
%A _Benoit Cloitre_, Dec 05 2002