A054011 - OEIS

%I #9 Oct 27 2023 22:00:46

%S 8,9,10,12,14,18,22,24,25,26,28,30,32,34,35,36,38,40,44,46,48,49,52,

%T 54,55,58,60,62,63,64,65,66,68,72,74,76,77,78,80,81,82,84,85,86,88,90,

%U 91,92,94,95,96,98,99,100,102,104,106,108,110,112,114,115,116,117,118,119

%N n is not divisible by the number of its proper divisors.

%H Amiram Eldar, <a href="/A054011/b054011.txt">Table of n, a(n) for n = 1..10000</a>

%p with(numtheory): [seq(`if`(i mod (tau(i)-1) <> 0,i,print( )), i=2..190)];

%t Select[Range[2, 120], ! Divisible[#, DivisorSigma[0, #] - 1] &] (* _Amiram Eldar_, Aug 28 2019 *)

%Y Cf. A000005, A032741, A054009, A054012.

%K nonn

%O 1,1

%A _Asher Auel_, Jan 17 2000