OFFSET
1,1
COMMENTS
a(n) = A161385(n) - 1. - Reinhard Zumkeller, Aug 10 2014
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
MATHEMATICA
Table[{Table[0, n^2], Table[1, (n+1)^2]}, {n, 1, 7, 2}]//Flatten (* Harvey P. Dale, Jul 06 2016 *)
PROG
(Haskell)
a161382 n = a161382_list !! (n-1)
a161382_list = concatMap (\x -> replicate (x ^ 2) (1 - mod x 2)) [1..]
-- Reinhard Zumkeller, Aug 10 2014
CROSSREFS
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Nov 29 2009
STATUS
approved