A079813 - OEIS

This site is supported by donations to The OEIS Foundation.

A079813

n 0's followed by n 1's.

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

	OFFSET	`1,1`
	LINKS	`Table of n, a(n) for n=1..105.` `Boris Putievskiy, Transformations [Of] Integer Sequences And Pairing Functions, arXiv preprint arXiv:1212.2732, 2012.`
	FORMULA	`G.f.: (x / (1 - x)) * (Sum_{k>0} x^k^2 * (1 - x^k)). - Michael Somos, Nov 05 2011` `a(n) = floor((n-1)/A000194(n))-A000194(n)+1, where A000194(n)=round(sqrt(n)). - Antonio G. Astudillo (afg_astudillo(AT)hotmail.com), Feb 23 2003` `a(n+1) = 1 - A118175(n). - Philippe Deléham, Jan 02 2012`
	EXAMPLE	`x^2 + x^5 + x^6 + x^10 + x^11 + x^12 + x^17 + x^18 + x^19 + x^20 + ...`
	MAPLE	`A000194 := n->round(sqrt(n)):A079813 := n->(floor((n-1)/A000194(n))-A000194(n)+1);`
	PROG	`(PARI) {a(n) = if( n<1, 0, n--; m = sqrtint(n); n - m^2 < m)} /* Michael Somos, Nov 05 2011 */`
	CROSSREFS	`Sequence in context: A079944 A059652 A108736 * A078580 A059651 A176405` `Adjacent sequences: A079810 A079811 A079812 * A079814 A079815 A079816`
	KEYWORD	`easy,nonn`
	AUTHOR	`Olivier Gérard, Feb 19 2003`
	STATUS	`approved`

Content is available under The OEIS End-User License Agreement .

Last modified June 17 23:06 EDT 2013. Contains 226327 sequences.