A276043 Least k such that n divides d(sigma(k)) (d = A000005).

1, 2, 3, 5, 33, 6, 105, 14, 22, 33, 651, 24, 2667, 105, 66, 54, 57337, 88, 172011, 114, 210, 1302, 2752491, 120, 510, 5334, 472, 378, 199753347, 264, 677207307, 312, 3810, 114674, 2130, 520, 43346476299, 344022, 14322, 540, 698915267211, 840, 2795677065867, 5208

Offset

1,2

Links

Table of n, a(n) for n=1..44.

Example

a(5) = 33 because 5 divides A000005(A000203(33)) = 10.

Mathematica

Table[k = 1; While[! Divisible[DivisorSigma[0, #] &@ DivisorSigma[1, k], n], k++]; k, {n, 28}] (* Michael De Vlieger, Aug 21 2016 *)

Prog

(PARI) a(n) = {my(k = 1); while(numdiv(sigma(k)) % n, k++); k; }

Crossrefs

Cf. A000005, A000203, A062068.

Sequence in context: A163079 A109845 A241722 * A041019 A041977 A362640

Adjacent sequences: A276040 A276041 A276042 * A276044 A276045 A276046

Keyword

nonn

Author

Altug Alkan, Aug 17 2016

Extensions

More terms from Jinyuan Wang, Jan 23 2021

Status

approved