|
%I #15 Feb 07 2022 21:45:51
%S 11,13,15,17,19,21,23,25,27,29,31,33,35,37,39,41,43,45,47,49,51,53,55,
%T 57,59,61,63,65,67,69,71,73,75,77,79,81,83,85,87,89,91,93,95,97,99,
%U 100,101,103,104,106,107,109,110,112,113,115,116,118,119,121,122,124,125
%N Natural numbers not divisible by their number of decimal digits.
%C Complement of A098952.
%C Asymptotic density 1. [_Charles R Greathouse IV_, Nov 13 2010]
%H Michael S. Branicky, <a href="/A171491/b171491.txt">Table of n, a(n) for n = 1..10000</a>
%e 100 has three digits and is not divisible by 3, therefore 100 is in the sequence.
%t Select[Range[150],!Divisible[#,IntegerLength[#]]&] (* _Harvey P. Dale_, Apr 24 2011 *)
%o (Magma) [n: n in [1..140] | not IsIntegral(n/#Intseq(n))]; // _Bruno Berselli_, Feb 09 2016
%o (Python)
%o def ok(n): return n%len(str(n)) == 0
%o print([k for k in range(142) if ok(k)]) # _Michael S. Branicky_, Feb 07 2022
%K nonn,base
%O 1,1
%A _Jaroslav Krizek_, Dec 10 2009
|
