OFFSET
1,2
FORMULA
Conjectures from Colin Barker, Jun 19 2019: (Start)
G.f.: x*(1 - x)*(1 + 3*x + 5*x^2 + 10*x^3 + 15*x^4 + 14*x^5 + 25*x^6 + 10*x^7 + 8*x^8 + 18*x^9 + 42*x^10 - 402*x^12 - 552*x^13 - 720*x^14 - 804*x^15) / (1 - 2*x^2 - 4*x^4 + 2*x^6).
a(n) = 2*a(n-2) + 4*a(n-4) - 2*a(n-6) for n>17.
(End)
EXAMPLE
a(4) = 9 because the possible sums and products of one or more terms from a(1), a(2), a(3) are 1, 2, 4, 1+2, 1+4, 2+4, 1+2+4, 1, 2, 4, 1*2, 1*4, 2*4, 1*2*4 = 1, 2, 4, 3, 5, 6, 7, 1, 2, 4, 2, 4, 8, 8. The smallest missing number is 9.
MATHEMATICA
(* This program is not efficient for a large number of terms *) a[1] = 1; a[n_] := a[n] = For[s = Subsets[Array[a, n-1]]; sums = Plus @@@ s; prods = Times @@@ s; k = a[n-1]+1, True, k++, If[FreeQ[sums, k], If[FreeQ[prods, k], Print["a(", n, ") = ", k ]; Return[k]]]]; Array[a, 20] (* Jean-François Alcover, May 26 2015 *)
CROSSREFS
KEYWORD
nonn,nice
AUTHOR
Jonathan Ayres (jonathan.ayres(AT)btinternet.com), Nov 02 2001
EXTENSIONS
More terms from Jon E. Schoenfield, Jun 17 2007
a(35)-a(38) from Donovan Johnson, Jan 11 2011
STATUS
approved