A014866 Numbers k that divide s(k), where s(1)=1, s(j)=16*s(j-1)+j.

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

Links

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

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

Adjacent sequences: A014863 A014864 A014865 * A014867 A014868 A014869

Keyword

nonn

Author

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

Status

approved