0,3

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

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

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

Cf. A000217, A083312, A115017.

Sequence in context: A081281 A108198 A321000 * A211561 A134248 A248670

Adjacent sequences: A121286 A121287 A121288 * A121290 A121291 A121292

nonn

Leroy Quet, Aug 24 2006

Extended by Ray Chandler, Aug 29 2006

approved