login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A107751 a(n) = A107750(n+1) - A107750(n). 2
1, 1, 1, 1, 1, 2, 1, 1, 2, 1, 1, 2, 1, 1, 2, 1, 1, 2, 1, 1, 2, 1, 1, 2, 1, 1, 2, 1, 1, 2, 1, 1, 2, 1, 1, 2, 1, 1, 2, 1, 1, 2, 1, 1, 2, 1, 1, 2, 1, 1, 2, 1, 1, 2, 1, 1, 2, 1, 1, 2, 1, 1, 2, 1, 1, 2, 1, 1, 2, 1, 1, 2, 1, 1, 2, 1, 1, 2, 1, 1, 2, 1, 1, 2, 1, 1, 2, 1, 1, 2, 1, 1, 2, 1, 1, 2, 1, 1, 2, 1, 1, 2, 1, 1, 2 (list; graph; refs; listen; history; text; internal format)
OFFSET

0,6

LINKS

Antti Karttunen, Table of n, a(n) for n = 0..65537

FORMULA

a(n) = if n<=4 then 1 else 0^(a(n-1)-1) + 0^(a(n-2)-1).

MATHEMATICA

A107751[ nmax_ ] := Length /@ Split[ (Total[ 1 - IntegerDigits[ #1, 2 ] ] &) /@ Range[ 0, nmax ] ]; A107751[ 200 ] - Peter Pein (petsie(AT)dordos.net), Oct 12 2007

PROG

(PARI)

up_to = 65537;

A107751list(up_to) = { my(v=vector(up_to)); v[1]=v[2]=v[3]=v[4]=1; for(n=5, up_to, v[n] = (0^(v[n-1]-1) + 0^(v[n-2]-1))); (v); };

v107751 = A107751list(up_to);

A107751(n) = if(!n, 1, v107751[n]); \\ Antti Karttunen, Dec 23 2018

CROSSREFS

Cf. A100063, A099837, A100051, A107688.

Sequence in context: A057079 A132419 A131556 * A132367 A087204 A101825

Adjacent sequences:  A107748 A107749 A107750 * A107752 A107753 A107754

KEYWORD

nonn

AUTHOR

Reinhard Zumkeller, May 23 2005

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified May 28 17:37 EDT 2020. Contains 334684 sequences. (Running on oeis4.)