A077494 a(n) = smallest k such that the digit sum of 7k is n.
143, 3, 16, 2, 6, 1, 5, 9, 4, 8, 12, 7, 11, 24, 28, 14, 27, 67, 71, 57, 97, 128, 114, 127, 257, 414, 427, 557, 714, 997, 857, 1257, 1414, 1427, 4257, 2857, 5714, 8427, 8557, 9857, 11427, 14257, 12857, 28557, 55714, 42857, 71427, 85714, 99857, 112857, 128557
Offset: 2
Programs
-
Mathematica
sk7[n_]:=Module[{k=1},While[Total[IntegerDigits[7k]]!=n,k++];k]; Array[ sk7,60,2] (* Harvey P. Dale, Apr 07 2014 *)
Formula
A077493(n)/7
Extensions
Corrected and extended by Ray Chandler, Aug 03 2003