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
KEYWORD
nonn
AUTHOR
STATUS
approved