The OEIS is supported by the many generous donors to the OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A249416 a(n) = core(Sum_{i=0,...,n} core(binomial(n,i))), where core(n) = A007913(n). 0
 1, 2, 1, 2, 10, 2, 1, 2, 118, 19, 519, 2, 635, 370, 829, 1333, 8454, 17315, 3599, 15307, 423769, 852006, 495431, 2, 2425755, 2121070, 3192295, 1614598, 35685686, 10081687, 735961, 12902173, 216093318, 151123623, 5270424935, 39937013, 22884337, 7281379334 (list; graph; refs; listen; history; text; internal format)
 OFFSET 0,2 LINKS Table of n, a(n) for n=0..37. MATHEMATICA a7913[n_]:=a7913[n]=Times@@(#[[1]]^Mod[#[[2]], 2])&[Transpose[FactorInteger[n]]]; Map[a7913[Total[Map[a7913, Binomial[#, Range[0, #]]]]]&, Range[0, 50]] (* Peter J. C. Moses, Oct 28 2014 *) PROG (PARI) a(n) = core(sum(i=0, n, core(binomial(n, i)))); \\ Michel Marcus, Nov 13 2014 CROSSREFS Cf. A007913, A248470, A248473, A249388. Sequence in context: A078357 A225432 A086382 * A062345 A077098 A069238 Adjacent sequences: A249413 A249414 A249415 * A249417 A249418 A249419 KEYWORD nonn AUTHOR Vladimir Shevelev, Oct 28 2014 EXTENSIONS More terms from Peter J. C. Moses, Oct 28 2014 STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified August 7 14:24 EDT 2024. Contains 375013 sequences. (Running on oeis4.)