This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A298981 #12 Jul 03 2021 07:17:59
%S A298981 1,2,4,5,9,11,12,13,15,16,18,19,21,23,24,25,27,29,31,32,34,35,38,39,
%T A298981 43,44,45,46,47,48,49,51,52,53,54,55,56,61,65,68,75,99,101,102,103,
%U A298981 104,105,106,107,108,109,110,111,112,113,115,116,117,119,120,121,123,124,125,127,128,129,131,132,133,135,136,137,138,139
%N A298981 Numbers m such that there does not exist an integer k < m for which the initial decimal digits of k/m are m.
%C A298981 Inspired by A298232.
%F A298981 Complement of A298980.
%e A298981 2 is in the sequence since there is no k such that k/2 would result in a decimal number which begins with 2, i.e., 0.2000. Instead, the decimal number for odd k's begin with 0.5.
%t A298981 fQ = Compile[{{n, _Integer}}, Block[{k = 1, il = IntegerLength@ n}, While[m = 10^il*k/n; While[ IntegerLength@ Floor@ m < il, m *= 10]; k < n && Floor[m] != n, k++]; k == n]]; Select[Range@140, fQ]
%o A298981 (PARI) is_A298981(n)=!A298982(n)
%Y A298981 Cf. A298232, A051626, A298980, A298982.
%K A298981 easy,nonn,base
%O A298981 1,2
%A A298981 _Eric Angelini_, _M. F. Hasler_ and _Robert G. Wilson v_, Jan 30 2018