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

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A240025 Characteristic function of quarter squares, cf. A002620. 14
 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 (list; graph; refs; listen; history; text; internal format)
 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

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 September 8 01:34 EDT 2024. Contains 375749 sequences. (Running on oeis4.)