|
%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_
|
