A121289 a(n) = n/(largest triangular number dividing n).

0, 1, 2, 1, 4, 5, 1, 7, 8, 3, 1, 11, 2, 13, 14, 1, 16, 17, 3, 19, 2, 1, 22, 23, 4, 25, 26, 9, 1, 29, 2, 31, 32, 11, 34, 35, 1, 37, 38, 13, 4, 41, 2, 43, 44, 1, 46, 47, 8, 49, 5, 17, 52, 53, 9, 1, 2, 19, 58, 59, 4, 61, 62, 3, 64, 65, 1, 67, 68, 23, 7, 71, 2, 73, 74, 5, 76, 77, 1, 79, 8, 27, 82

Offset: 0

Author

Leroy Quet, Aug 24 2006

Keywords

• nonn

Crossrefs

Cf. A000217, A083312, A115017.

Programs

Mathematica

f[n_] := Max[Select[Divisors[n], IntegerQ[(8# + 1)^(1/2)] & ]]; Table[n/f[n], {n, 0, 82}] (* Ray Chandler, Aug 29 2006 *)

Formula

a(n) = n/(A115017(n))

Extensions

Extended by Ray Chandler, Aug 29 2006