OFFSET
1,7
COMMENTS
Created to provide a check on the calculations in A096151.
MATHEMATICA
kln2[n_] := Module[{k = n + 1, den = Floor[ (11/10)^n]}, While[ ! IntegerQ[Floor[(11/10)^k]/den], k++]; Floor[(11/10)^k]/den]; Array[kln2, 70] (* Harvey P. Dale, Aug 29 2012 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Aug 29 2012
STATUS
approved