login
A014868
Numbers k that divide s(k), where s(1)=1, s(j)=18*s(j-1)+j.
1
1, 2, 3, 6, 9, 17, 18, 21, 34, 38, 42, 51, 63, 102, 114, 126, 147, 153, 289, 294, 306, 342, 357, 441, 578, 646, 714, 722, 798, 867, 882, 1029, 1071, 1314, 1734, 1806, 1842, 1938, 2058, 2142, 2166, 2394, 2499, 2601, 3087, 4658, 4913, 4998, 5202
OFFSET
1,2
LINKS
MATHEMATICA
nxt[{s_, n_}]:={18s+n+1, n+1}; Transpose[Select[NestList[nxt, {1, 1}, 5300], Divisible[ First[#], Last[#]]&]][[2]] (* Harvey P. Dale, Jun 11 2014 *)
CROSSREFS
Sequence in context: A026768 A068604 A174023 * A029463 A018721 A018384
KEYWORD
nonn
STATUS
approved