OFFSET
1,2
EXAMPLE
17 is odd so the next term is 1718; 1718 is even so the next term is 1718/2 = 859.
MAPLE
catL := proc(a, b) a*10^( max(ilog10(b)+1, 1)) +b ; end: A131570 := proc(n) option remember ; local prev; if n = 1 then 1 ; else prev := A131570(n-1) ; if prev mod 2 = 1 then catL(prev, prev+1) ; else prev/2 ; fi ; fi ; end: seq(A131570(n), n=1..20) ; # R. J. Mathar, Oct 26 2007
MATHEMATICA
a = {1}; Do[If[OddQ[a[[ -1]]], AppendTo[a, FromDigits[Join[IntegerDigits[a[[ -1]]], IntegerDigits[a[[ -1]] + 1]]]], AppendTo[a, a[[ -1]]/2]], {25}]; a (* Stefan Steinerberger, Oct 26 2007 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Rodolfo Kurchan, Aug 27 2007
EXTENSIONS
More terms from R. J. Mathar and Stefan Steinerberger, Oct 26 2007
STATUS
approved