A273014 Least k such that A067128(k) is divisible by n.

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, 20, 17, 249, 12, 273, 19, 33, 67, 27, 13, 318, 104, 49, 21, 324, 17, 405, 33, 18, 161, 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

Offset

1,2

Links

David A. Corneth, Table of n, a(n) for n = 1..178

Example

A067128(17) = 84. 84 is divisible by the 7. For any m < 17, A067128(m) is not divisible by 7, so a(7) = 17.

Mathematica

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 *)

Crossrefs

Cf. A034287, A067128.

Sequence in context: A260426 A167151 A342621 * A336321 A359446 A072275

Adjacent sequences: A273011 A273012 A273013 * A273015 A273016 A273017

Keyword

nonn

Author

David A. Corneth, May 13 2016

Extensions

a(20)-a(64) from Peter J. C. Moses, May 13 2016

Status

approved