OFFSET
1,2
COMMENTS
A variant of A105801: The highest power of two is recursively removed from 3x/2+1, where x is the sum of the preceding two elements of the sequence.
MAPLE
A000265 := proc(n) local a, nshft ; a := 1 ; nshft := n ; while nshft mod 2 = 0 do nshft := nshft/2 ; od: nshft ; end:
A124139 := proc(n) option remember ; if n = 1 then 1; elif n = 2 then 11; else A000265(3*(procname(n-1)+procname(n-2))/2 +1) ; fi; end: seq(A124139(n), n=1..60) ; # R. J. Mathar, Jul 02 2009
CROSSREFS
KEYWORD
nonn
AUTHOR
Yasutoshi Kohmoto, Dec 01 2006
EXTENSIONS
Edited and extended by R. J. Mathar, Jul 02 2009
STATUS
approved