login
A014853
Numbers k that divide s(k), where s(1)=1, s(j)=6*s(j-1)+j.
0
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,2
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 *)
CROSSREFS
s(n) = A014829(n).
Sequence in context: A305937 A286097 A287483 * A131627 A325712 A345170
KEYWORD
nonn
STATUS
approved