OFFSET
1,1
REFERENCES
G. E. Andrews, The Theory of Partitions, Addison-Wesley, 1976, p. 160.
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 1..1000
MATHEMATICA
f[pp_(*primes*), max_(*maximum term*)] := Module[{a, aa, k, iter}, k = Length[pp]; aa = Array[a, k]; iter = Table[{a[j], 0, PowerExpand @ Log[pp[[j]], max/Times @@ (Take[pp, j-1]^Take[aa, j-1])]}, {j, 1, k}]; Table[Times @@ (pp^aa), Sequence @@ iter // Evaluate] // Flatten // Sort]; A036490 = f[{5, 7, 11}, 2*10^14] // Rest; a[n_] := (a0 = A036490[[n]]; b = Max[1, IntegerExponent[a0, 7]]; 7^(Floor[(b+2)/2]-b) * a0); Table[a[n], {n, 1, Length[A036490]}]; (* Jean-François Alcover, Sep 19 2012, updated Nov 12 2016 *)
PROG
(Haskell)
a036491 n = f z z where
f x y | x `mod` 2401 == 0 = f (x `div` 49) (y `div` 7)
| x `mod` 343 == 0 = y `div` 7
| otherwise = y
z = a036490 n
-- Reinhard Zumkeller, Feb 19 2013
CROSSREFS
KEYWORD
AUTHOR
EXTENSIONS
Offset corrected by Reinhard Zumkeller, Feb 19 2013
STATUS
approved