OFFSET
0,4
LINKS
Index entries for linear recurrences with constant coefficients, signature (0, 0, 3).
FORMULA
For n>5, a(n+3) = 3a(n) (conjectured). - Ralf Stephan, Dec 02 2004
From Ron Knott, Mar 18 2020: (Start)
a(3*n) = 3^n; a(3*n+1) = a(3*n); a(3*n+2) = 5*3^(n-1) for n >= 1.
G.f.: -(2*x^5+x^2+x+1)/(3*x^3-1). (End)
EXAMPLE
The partitions of 5 are 5, 41, 32, 311, 221, 2111, 11111, with products 5, 4, 6, 3, 4, 2, 1 and the maximal odd product is 5.
MATHEMATICA
first Needs["DiscreteMath`Combinatorica`"], then f[n_] := Max[ Select[ Apply[ Times, Partitions[n], 2], OddQ[ # ] &]]; Table[ f[n], {n, 1, 43}] (* Robert G. Wilson v, Feb 12 2004 *)
Table[Max[(Times @@ #) & /@
IntegerPartitions[n, All, Range[1, n, 2]]], {n, 1, 43}]. (* Ron Knott, Mar 18 2020 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Jon Perry, Feb 12 2004
EXTENSIONS
More terms from Robert G. Wilson v, Feb 12 2004
a(0)=1 prepended by Alois P. Heinz, Mar 18 2020
STATUS
approved