OFFSET
1,1
EXAMPLE
a(4)= 10072, in which the fourth digit is 7.
MATHEMATICA
lmn7[n_]:=Module[{k=Ceiling[10^(n-1)/n]}, While[NumberDigit[k n, IntegerLength[ k n]-n]!=7, k++]; k n]; Array[lmn7, 10] (* The program generates the first 10 terms of the sequence. *) (* Harvey P. Dale, Nov 02 2022 *)
CROSSREFS
KEYWORD
base,easy,nonn
AUTHOR
Amarnath Murthy, Nov 06 2005
EXTENSIONS
More terms from Joshua Zucker, May 03 2006
STATUS
approved
