OFFSET
1,3
LINKS
John Tyler Rascoe, Table of n, a(n) for n = 1..10000
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
PROG
(Python)
def A119795_list(maxn):
A = [1, 1]
for n in range(2, maxn):
A = A+[A[n-2]+(A[n-1]&-A[n-1])]
return A # John Tyler Rascoe, Jan 13 2025
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Leroy Quet, Jul 30 2006
EXTENSIONS
More terms from R. J. Mathar, Aug 04 2006
STATUS
approved