A014853 Numbers k that divide s(k), where s(1)=1, s(j)=6*s(j-1)+j.

1, 2, 3, 5, 6, 10, 14, 15, 25, 30, 42, 50, 70, 75, 98, 110, 125, 129, 150, 186, 210, 250, 258, 294, 330, 350, 375, 406, 490, 550, 625, 645, 686, 750, 770, 930, 1010, 1050, 1210, 1218, 1250, 1290, 1302, 1470, 1555, 1650, 1750, 1806, 1875, 2030

Offset: 1

Author

N. J. A. Sloane, Olivier Gérard

Keywords

• nonn

Crossrefs

s(n) = A014829(n).

Programs

Mathematica

nxt[{n_,a_}]:={n+1,6a+n+1}; Select[NestList[nxt,{1,1},2100], Divisible[ #[[2]],#[[1]]]&][[All,1]] (* Harvey P. Dale, Aug 01 2019 *)