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,3

Links

Table of n, a(n) for n=0..82.

Formula

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

Mathematica

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

Crossrefs

Cf. A000217, A083312, A115017.

Sequence in context: A108198 A371686 A321000 * A211561 A134248 A248670

Adjacent sequences: A121286 A121287 A121288 * A121290 A121291 A121292

Keyword

nonn

Author

Leroy Quet, Aug 24 2006

Extensions

Extended by Ray Chandler, Aug 29 2006

Status

approved