A120032 Denominators associated with A120031.

1, 2, 3, 9, 63, 7, 77, 539, 2695, 24255, 92169, 48279, 370139, 370139, 1427679, 4283037, 132774147, 4023459, 3129357, 59457783, 2318853537, 48695924277, 190356794901, 486467364747, 7621322047703, 155537184647, 610184339769

Offset

0,2

Links

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

Mathematica

a[0] = 1; a[n_] := a[n] = a[n - 1] If[OddQ[n], (2 n - 1)/(2 n), (2 n)/(2 n - 1)]; A120032[n_] := Denominator[a[n]]; Array[A120032, 26] (* JungHwan Min, Nov 08 2016 *)

Crossrefs

Cf. A120031.

Sequence in context: A226967 A181273 A270394 * A126884 A054544 A269993

Adjacent sequences: A120029 A120030 A120031 * A120033 A120034 A120035

Keyword

nonn,frac

Author

Mihai Cipu (mihai.cipu(AT)imar.ro), Jun 05 2006

Extensions

More terms from Matthew Conroy, Jun 26 2006

Status

approved