|
|
A077494
|
|
a(n) = smallest k such that the digit sum of 7k is n.
|
|
2
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
2,1
|
|
LINKS
|
|
|
FORMULA
|
|
|
MATHEMATICA
|
sk7[n_]:=Module[{k=1}, While[Total[IntegerDigits[7k]]!=n, k++]; k]; Array[ sk7, 60, 2] (* Harvey P. Dale, Apr 07 2014 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
base,nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|