OFFSET
2,1
FORMULA
A077493(n)/7
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
Amarnath Murthy, Nov 07 2002
EXTENSIONS
Corrected and extended by Ray Chandler, Aug 03 2003
STATUS
approved