A098952 Integers divisible by their number of digits.

0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 12, 14, 16, 18, 20, 22, 24, 26, 28, 30, 32, 34, 36, 38, 40, 42, 44, 46, 48, 50, 52, 54, 56, 58, 60, 62, 64, 66, 68, 70, 72, 74, 76, 78, 80, 82, 84, 86, 88, 90, 92, 94, 96, 98, 102, 105, 108, 111, 114, 117, 120, 123, 126, 129, 132, 135, 138, 141

Offset

1,3

Comments

Complement of A171491. [Jaroslav Krizek, Dec 10 2009]

Links

Harvey P. Dale, Table of n, a(n) for n = 1..1000

Example

102 has three digits and is divisible by 3, therefore 102 is in the sequence.

Mathematica

Join[{0}, Select[Range[150], Divisible[#, IntegerLength[#]]&]] (* Harvey P. Dale, Dec 13 2020 *)

Prog

(Magma) [0] cat [n: n in [1..150] | IsIntegral(n/#Intseq(n))]; // Bruno Berselli, Feb 09 2016
(Python)
def ok(n): return n%len(str(n)) == 0
print([k for k in range(142) if ok(k)]) # Michael S. Branicky, Feb 07 2022

Crossrefs

Cf. A171491.

Sequence in context: A117804 A088235 A064223 * A144688 A164836 A005358

Adjacent sequences: A098949 A098950 A098951 * A098953 A098954 A098955

Keyword

nonn,base,easy

Author

Eric Angelini, Oct 21 2004

Extensions

Corrected by T. D. Noe, Oct 25 2006

Status

approved