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