A124195 - OEIS

This site is supported by donations to The OEIS Foundation.

A124195

a(1)=1. a(n) = n - GCD(a(n-1),n).

1, 1, 2, 2, 4, 4, 6, 6, 6, 8, 10, 10, 12, 12, 12, 12, 16, 16, 18, 18, 18, 20, 22, 22, 24, 24, 24, 24, 28, 28, 30, 30, 30, 32, 34, 34, 36, 36, 36, 36, 40, 40, 42, 42, 42, 44, 46, 46, 48, 48, 48, 48, 52, 52, 54, 54, 54, 56, 58, 58, 60, 60, 60, 60, 60, 60, 66, 66, 66, 68, 70, 70, 72 (list; graph; refs; listen; history; internal format)

	OFFSET	`1,3`
	MATHEMATICA	`f[l_List] := Block[{n = Length[l] + 1}, Append[l, n - GCD[l[[ -1]], n]]]; Nest[f, {1}, 75] (Chandler)`
	CROSSREFS	`Sequence in context: A080606 A083535 A070320 * A079584 A179291 A004079` `Adjacent sequences: A124192 A124193 A124194 * A124196 A124197 A124198`
	KEYWORD	`nonn`
	AUTHOR	`Leroy Quet Dec 06 2006`
	EXTENSIONS	`Extended by Ray Chandler (rayjchandler(AT)sbcglobal.net), Dec 11 2006`

Content is available under The OEIS End-User License Agreement .

Last modified February 17 14:50 EST 2012. Contains 206050 sequences.