A191152 - OEIS

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

A191152

[4n*e]-2[2n*e], where [ ]=floor.

0, 1, 0, 1, 0, 1, 0, 0, 1, 0, 1, 0, 1, 0, 1, 1, 0, 1, 0, 1, 0, 1, 0, 0, 1, 0, 1, 0, 1, 0, 1, 1, 0, 1, 0, 1, 0, 1, 0, 0, 1, 0, 1, 0, 1, 0, 1, 1, 0, 1, 0, 1, 0, 1, 0, 0, 1, 0, 1, 0, 1, 0, 1, 1, 0, 1, 0, 1, 0, 1, 1, 0, 1, 0, 1, 0, 1, 0, 0, 1, 0, 1, 0, 1, 0, 1, 1, 0, 1, 0, 1, 0, 1, 0, 0, 1, 0, 1, 0, 1, 0, 1, 1, 0, 1, 0, 1, 0, 1, 0, 0, 1, 0, 1, 0, 1, 0, 1, 1, 0, 1, 0, 1, 0, 1, 0, 0, 1, 0, 1, 0 (list; graph; refs; listen; history; text; internal format)

	OFFSET	`1`
	LINKS	`Table of n, a(n) for n=1..131.`
	MATHEMATICA	`f[n_] := Floor[4 nE] - 2Floor[2 nE];` `t = Table[f[n], {n, 1, 220}] ( A191152 )` `Flatten[Position[t, 0]] ( A191230 )` `Flatten[Position[t, 1]] ( A191231 *)`
	CROSSREFS	`Cf. A191230, A191231.` `Sequence in context: A285073 A276394 A215532 * A139312 A323239 A285685` `Adjacent sequences: A191149 A191150 A191151 * A191153 A191154 A191155`
	KEYWORD	`nonn`
	AUTHOR	`Clark Kimberling, May 27 2011`
	STATUS	`approved`

License Agreements, Terms of Use, Privacy Policy. .

Last modified March 23 10:10 EDT 2023. Contains 361443 sequences. (Running on oeis4.)