%I #43 Jun 04 2022 09:45:07
%S 1,3,5,7,11,13,15,17,19,23,27,29,31,35,37,39,41,43,47,51,53,55,59,61,
%T 67,71,73,79,83,87,89,91,95,97,101,103,107,109,111,113,115,119,123,
%U 127,131,135,137,139,143,149,151,155,157,159,163,167
%N Numbers k such that k+1 is divisible by number of divisors of k.
%C Inspired by A272353.
%C All odd primes are obvious members.
%C Numbers k such that k == -1 (mod A000005(k)). Nonprime terms are listed in A354714. - _Max Alekseyev_, Jun 04 2022
%C 63 is the least number that is not in this sequence but is a member of A187929.
%H Amiram Eldar, <a href="/A272872/b272872.txt">Table of n, a(n) for n = 1..10000</a>
%H Claudia A. Spiro, <a href="https://doi.org/10.1112/jlms/s2-31.1.30">How Often Does the Number of Divisors of an Integer Divide Its Successor?</a>, J. London Math. Soc. (1985) s2-31 (1): 30-40.
%e 15 is a term because A000005(15) = 4 divides 15+1 = 16.
%t Select[Range@167, Mod[#+1, DivisorSigma[0, #]] == 0 &] (* _Giovanni Resta_, May 21 2016 *)
%o (PARI) lista(nn) = {for(n=1, nn, if((n+1) % numdiv(n) == 0, print1(n, ", ")));}
%Y Cf. A000005, A187929, A272353, A033950, A354711, A354712, A354714, A354715, A354716.
%K nonn
%O 1,2
%A _Altug Alkan_, May 11 2016