OFFSET
0,1
REFERENCES
M. Abramowitz and I. A. Stegun, eds., Handbook of Mathematical Functions, National Bureau of Standards Applied Math. Series 55, 1964 (and various reprintings), p. 798.
G. Prévost, Tables de Fonctions Sphériques. Gauthier-Villars, Paris, 1933, pp. 156-157.
N. J. A. Sloane, A Handbook of Integer Sequences, Academic Press, 1973 (includes this sequence).
N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).
LINKS
G. C. Greubel, Table of n, a(n) for n = 0..1000
M. Abramowitz and I. A. Stegun, eds., Handbook of Mathematical Functions, National Bureau of Standards, Applied Math. Series 55, Tenth Printing, 1972 [alternative scanned copy].
Michel Bataille and Robert Frontczak, Combinatorial sums derived from properties of Legendre polynomials, arXiv:2604.25981 [math.NT], 2026. See p. 2.
Milan Janjic, Some classes of numbers and derivatives, J. Int. Seq. 12 (2009), Article 09.8.3.
FORMULA
a(n) = 3*2^(n-3)*binomial(n + 3/2, n)*2^A011371(n+4). - G. C. Greubel, Apr 26 2025
MATHEMATICA
A001801[n_]:= 3*2^(2*n+1)*Binomial[n+3/2, n]/2^DigitCount[n+4, 2, 1];
Table[A001801[n], {n, 0, 40}] (* G. C. Greubel, Apr 26 2025 *)
PROG
(PARI) a(n)=if(n<0, 0, polcoeff(pollegendre(n+4), n)*2^valuation((n\2*2+4)!, 2))
(Magma)
A001801:= func< n | 3*Binomial(n+3, 3)*Catalan(n+2)*2^(Valuation(Factorial(n+4), 2)-n-4) >;
[A001801(n): n in [0..30]]; // G. C. Greubel, Apr 26 2025
(SageMath)
def A001801(n): return 3*2^(n-3)*binomial(n+3/2, n)*2^valuation(factorial(n+4), 2)
print([A001801(n) for n in range(31)]) # G. C. Greubel, Apr 26 2025
CROSSREFS
KEYWORD
nonn
AUTHOR
EXTENSIONS
More terms from Michael Somos, Oct 25 2002
STATUS
approved
