|
%I #7 Dec 19 2013 03:28:36
%S 24,1,21,2,3,923521,5,4,7,18,27,2401,6,9,13,8,217,9604,10,1089,19,98,
%T 91,21609,14,14641,28,49,12,2614689
%N Smallest x such that sigma(x) mod 30 = n.
%C Compare with A084303.
%C Row 30 of A074625 (apart from different ordering). - _Michel Marcus_, Dec 19 2013
%t t=Table[Mod[DivisorSigma[1, w], 30], {w, 1, 2700000}]; Table[Min[Flatten[Position[t, j]]], {j, 0, 29}]
%Y Cf. A000203, A084301, A084303, A097011, A097012, A097014, A097015.
%K fini,full,nonn
%O 0,1
%A _Labos Elemer_, Aug 19 2004
|
