A240025 Characteristic function of quarter squares, cf. A002620.

1, 1, 1, 0, 1, 0, 1, 0, 0, 1, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0

Offset

0

Links

Reinhard Zumkeller, Table of n, a(n) for n = 0..10000

Index entries for characteristic functions

Formula

a(n) = Max_{A005369(n), A010052(n)}.

a(A002620(n)) = 1; a(A049068(n)) = 0.

a(n) = A010052(n) + A005369(n), for n>0. - Ridouane Oudra, Jun 08 2020

Mathematica

Join[{1}, Table[Floor[Sqrt[4n+1]], {n, 0, 100}] // Differences] (* Jean-François Alcover, Oct 06 2021 *)

Prog

(Haskell)
a240025 n = max (a005369 n) (a010052 n)

Crossrefs

Cf. A000267 (partial sums), A002620, A005369, A010052, A049068.

Sequence in context: A349920 A369253 A167752 * A100923 A050073 A266843

Adjacent sequences: A240022 A240023 A240024 * A240026 A240027 A240028

Keyword

nonn

Author

Reinhard Zumkeller, Jul 05 2014

Status

approved