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,2

Links

Table of n, a(n) for n=1..50.

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

Adjacent sequences: A014850 A014851 A014852 * A014854 A014855 A014856

Keyword

nonn

Author

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

Status

approved