|
%I #12 Jul 03 2021 17:25:13
%S 1,2,3,4,5,6,8,9,10,12,15,16,18,20,21,24,25,27,30,34,36,39,40,42,45,
%T 48,50,54,55,60,63,68,72,75,78,80,81,84,90,100,102,105,108,110,117,
%U 120,125,126,135,136,144,147,150,155,156,162,165,168,170,171,180,189
%N Numbers k that divide s(k), where s(1)=1, s(j)=16*s(j-1)+j.
%t nxt[{n_,a_}]:={n+1,16a+n+1}; With[{nn=200},Select[Thread[{Range[nn+1], NestList[ nxt,{1,1},nn][[All,2]]}],Divisible[#[[2]],#[[1]]]&]][[All,1]] (* _Harvey P. Dale_, Jul 24 2018 *)
%K nonn
%O 1,2
%A _N. J. A. Sloane_, _Olivier Gérard_
|
