OFFSET
1,3
EXAMPLE
4 is the largest power of two dividing a(18) = 20. So a(19) = a(17) + 4 = 17.
MAPLE
A006519 := proc(n::integer) RETURN(gcd(2^n, n)) ; end; A119795 := proc(nmax::integer) local a, n; a := array(1..nmax) ; a[1] := 1 ; a[2] := 1 ; for n from 3 to nmax do a[n] := a[n-2]+A006519(a[n-1]) ; end ; RETURN(a) ; end ; nmax := 200 ; a := A119795(nmax) ; for n from 1 to nmax do printf("%d, ", a[n]) ; od ; # R. J. Mathar, Aug 04 2006
CROSSREFS
KEYWORD
nonn
AUTHOR
Leroy Quet, Jul 30 2006
EXTENSIONS
More terms from R. J. Mathar, Aug 04 2006
STATUS
approved