A226478 - OEIS

A226478

A085192(n)/2.

1, 4, 1, 15, 1, 3, 1, 2, 57, 1, 3, 1, 2, 9, 1, 3, 1, 2, 5, 1, 2, 4, 221, 1, 3, 1, 2, 9, 1, 3, 1, 2, 5, 1, 2, 4, 29, 1, 3, 1, 2, 9, 1, 3, 1, 2, 5, 1, 2, 4, 13, 1, 3, 1, 2, 5, 1, 2, 4, 9, 1, 2, 4, 8, 869, 1, 3, 1, 2, 9, 1, 3, 1, 2, 5, 1, 2, 4, 29, 1, 3, 1, 2, 9, 1, 3, 1, 2, 5, 1, 2, 4, 13, 1, 3, 1, 2, 5, 1, 2, 4, 9, 1, 2, 4, 8, 101

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,2

COMMENTS

The records are 1,4,15,57,221,869,3445,13717,54741... (apparently 1/24*(5*4^n+6*2^n-8)) and they occur at index 1,2,4,9,23,65,197,626,2056.. (Is this A014137?).

LINKS

Table of n, a(n) for n=1..107.

PROG

(PARI) isA014486(n)=my(v=binary(n), t=0); for(i=1, #v, t+=if(v[i], 1, -1); if(t<0, return(0))); t==0

L=listcreate(); for(n=0, 200000, if(isA014486(n), listput(L, n))); v=Vec(L); for(n=1, #v-1, print1((v[n+1]-v[n])/2, ", "))

CROSSREFS

Cf. A014486.

Sequence in context: A016115 A164794 A353763 * A349124 A328235 A293129

Adjacent sequences: A226475 A226476 A226477 * A226479 A226480 A226481

KEYWORD

nonn

AUTHOR

Ralf Stephan, Aug 31 2013

STATUS

approved