login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A171378 a(n) = (n+1)^2 - A006046(n+1). 1
0, 1, 4, 7, 14, 21, 30, 37, 52, 67, 84, 99, 120, 139, 160, 175, 206, 237, 270, 301, 338, 373, 410, 441, 486, 529, 574, 613, 662, 705, 750, 781, 844, 907, 972, 1035, 1104, 1171, 1240, 1303, 1380, 1455, 1532, 1603, 1684, 1759, 1836, 1899, 1992, 2083, 2176, 2263 (list; graph; refs; listen; history; text; internal format)
OFFSET

0,3

LINKS

Robert Price, Table of n, a(n) for n = 0..999

MATHEMATICA

Table[(n+1)^2 -Sum[Sum[Mod[Binomial[m, k], 2], {k, 0, m}], {m, 0, n}], {n, 0, 60}]

PROG

(PARI) {a(n) = (n+1)^2 - sum(m=0, n, sum(k=0, m, binomial(m, k)%2))};

for(n=0, 60, print1(a(n), ", ")) \\ G. C. Greubel, Apr 11 2019

(MAGMA) [(n+1)^2 - (&+[ (&+[ Binomial(m, k) mod 2: k in [0..m]]): m in [0..n]]): n in [0..60]]; // G. C. Greubel, Apr 11 2019

(Sage) [(n+1)^2 - sum(sum(binomial(m, k)%2 for k in (0..m)) for m in (0..n)) for n in (0..60)] # G. C. Greubel, Apr 11 2019

CROSSREFS

Cf. A006046, A001316.

Sequence in context: A157615 A338551 A188319 * A147478 A147372 A201272

Adjacent sequences:  A171375 A171376 A171377 * A171379 A171380 A171381

KEYWORD

nonn,easy,less

AUTHOR

Roger L. Bagula, Dec 07 2009

EXTENSIONS

Edited by G. C. Greubel, Apr 11 2019

Definition corrected by Georg Fischer, Jun 21 2020

STATUS

approved

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

License Agreements, Terms of Use, Privacy Policy. .

Last modified August 1 05:51 EDT 2021. Contains 346384 sequences. (Running on oeis4.)