A014822 Numbers k such that k divides s(k), where s(1)=1, s(j)=10*s(j-1)+j (A014824).

1, 2, 3, 5, 6, 9, 10, 15, 18, 22, 27, 30, 42, 45, 54, 66, 78, 81, 90, 110, 111, 126, 135, 162, 198, 205, 210, 222, 234, 242, 243, 270, 294, 330, 333, 342, 378, 390, 405, 410, 462, 465, 486, 506, 546, 555, 594, 615, 630, 666, 702, 726, 729, 810, 858, 882, 930

Offset

1,2

Links

Robert Israel, Table of n, a(n) for n = 1..1000

Maple

s:= proc(n) option remember; 10*procname(n-1)+n end proc: s(1):= 1:
select(t -> s(t) mod t = 0, [$1..10000]); # Robert Israel, Feb 28 2025

Mathematica

Transpose[Select[NestList[{#[[1]]+1, 10#[[2]]+#[[1]]+1}&, {1, 1}, 1000], Divisible[ #[[2]], #[[1]]]&]][[1]] (* Harvey P. Dale, Sep 24 2012 *)

Crossrefs

Sequence in context: A293976 A173492 A133030 * A018462 A191286 A018659

Adjacent sequences: A014819 A014820 A014821 * A014823 A014824 A014825

Keyword

nonn

Author

N. J. A. Sloane

Status

approved