|
%I #14 Mar 12 2020 07:23:29
%S 3,4,10,15,28,35,54,55,63,64,65,85,95,98,100,115,125,135,144,145,147,
%T 155,156,175,176,185,189,205,215,234,235,245,260,265,295,297,305,335,
%U 336,351,355,364,365,395,400,408,415,416,445,459,485
%N Numbers k such that d(k)+1 | k.
%C Integers divisible by 1 more than the number of their divisors. The only prime is 3.
%C These numbers cannot be very orderly numbers (A167409). - _T. D. Noe_, Nov 13 2009
%H Amiram Eldar, <a href="/A055720/b055720.txt">Table of n, a(n) for n = 1..10000</a>
%t Select[Range[1000], Mod[ #, 1 + DivisorSigma[0, # ]] == 0 &]
%o (PARI) isok(k) = Mod(k, numdiv(k)+1) == 0; \\ _Michel Marcus_, Mar 12 2020
%Y Cf. A000005, A167409.
%K nonn
%O 1,1
%A _Robert G. Wilson v_, Jun 09 2000
%E Edited by _T. D. Noe_, Nov 13 2009
|
