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

Author

N. J. A. Sloane

Keywords

• nonn

Links

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

Programs

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 *)