login
Numbers k such that d(k)+1 | k.
1

%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