login
A014866
Numbers k that divide s(k), where s(1)=1, s(j)=16*s(j-1)+j.
0
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, 48, 50, 54, 55, 60, 63, 68, 72, 75, 78, 80, 81, 84, 90, 100, 102, 105, 108, 110, 117, 120, 125, 126, 135, 136, 144, 147, 150, 155, 156, 162, 165, 168, 170, 171, 180, 189
OFFSET
1,2
MATHEMATICA
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 *)
CROSSREFS
Sequence in context: A187041 A364560 A097752 * A051661 A051037 A250089
KEYWORD
nonn
STATUS
approved