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

%I #9 Aug 20 2021 21:45:27

%S 1,2,3,5,6,9,10,15,18,22,27,30,42,45,54,66,78,81,90,110,111,126,135,

%T 162,198,205,210,222,234,242,243,270,294,330,333,342,378,390,405,410,

%U 462,465,486,506,546,555,594,615,630,666,702,726,729,810,858,882,930

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

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

%K nonn

%O 1,2

%A _N. J. A. Sloane_