|
%I #20 May 15 2016 18:02:38
%S 1,2,3,4,7,5,17,6,9,7,33,8,49,17,12,14,67,9,104,10,17,33,161,11,31,49,
%T 20,17,249,12,273,19,33,67,27,13,318,104,49,21,324,17,405,33,18,161,
%U 538,14,142,31,67,49,586,20,33,22,104,249,721,15,766,273,29,58,49,33,1127,67,161,27,1252,16,1256,318,31,104,48,49
%N Least k such that A067128(k) is divisible by n.
%H David A. Corneth, <a href="/A273014/b273014.txt">Table of n, a(n) for n = 1..178</a>
%e A067128(17) = 84. 84 is divisible by the 7. For any m < 17, A067128(m) is not divisible by 7, so a(7) = 17.
%t a = {}; b = {0}; Do[If[# >= Max@ b, AppendTo[a, k] && AppendTo[b, #]] &@ DivisorSigma[0, k], {k, 10^7}]; Table[k = 1; While[! Divisible[a[[k]], n], k++]; k, {n, 22}] (* _Michael De Vlieger_, May 15 2016, for more terms use b-file data at A067128 *)
%Y Cf. A034287, A067128.
%K nonn
%O 1,2
%A _David A. Corneth_, May 13 2016
%E a(20)-a(64) from _Peter J. C. Moses_, May 13 2016
|
