%I #13 Mar 25 2017 20:28:38
%S 5,1,7,2,3,2401
%N Smallest x such that sigma(x) mod 6 = n.
%C Row 6 of A074625 (apart from different ordering). - _Michel Marcus_, Dec 19 2013
%e n=5: sigma(2401) = 1+7+49+343+2401 = 2801 = 6*466+5, hence a(5)=2401.
%t Table[k = 1; While[Mod[DivisorSigma[1, k], 6] != n, k++]; k, {n, 0, 5}] (* _Michael De Vlieger_, Mar 25 2017 *)
%o (PARI) a(n) = {my(x = 1); while((sigma(x) % 6) != n, x++); x;} \\ _Michel Marcus_, Dec 18 2013
%Y Cf. A000203, A074384.
%K easy,fini,full,nonn
%O 0,1
%A _Labos Elemer_, Jun 02 2003
|