A082396 Numbers k such that k/(2*k-A082851(k)) is an integer.

1, 2, 8, 10, 18, 36, 40, 52, 56, 60, 84, 98, 114, 128, 132, 140, 150, 153, 165, 171, 210, 230, 266, 286, 304, 320, 324, 399, 432, 450, 459, 495, 525, 544, 551, 560, 572, 588, 589, 600, 675, 756, 760, 825, 837, 858, 891, 928, 936, 984, 1012, 1027, 1040, 1044

Offset: 1

Author

Benoit Cloitre, Apr 14 2003

Keywords

• nonn

Links

• Paolo Xausa, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A082851.

Programs

Mathematica

Table[If[Divisible[k, #[[k]]], k, Nothing], {k, Length[#]}] & [Fold[Join[#, # + #2 - 1, {#2}] &, {}, Range[11]]] (* Paolo Xausa, Feb 03 2025 *)

Formula

Does lim_{n->oo} a(n)/n^2 = 1/2?

Based on numerical evidence, it appears that the limit above is 0. - Paolo Xausa, Jan 30 2025

Extensions

More terms from R. J. Mathar, Nov 17 2009