|
%I #11 Jul 26 2015 10:09:20
%S 6,0,0,0,1,1,3,3,2,4,7,3,9,6,5,8,13,5,15,8,9,12,19,7,18,13,13,14,25,8,
%T 27,18,17,18,24,12,33,19,16,17,37,13,39,24,20,25,43,18,42,22,25,23,49,
%U 21,42,27,28,32,55,16,57,34,30,34,47,22,63,34,38,24,67,24,69,37,35,37
%N a(n) = number of terms among {a(1), a(2), a(3), ..., a(n-1)} that are coprime to n; a(1)=6.
%C Numbers not present: 10, 11, 29, 31, 36, 41, 48, 51, 54, 58, 62, 65, 68, ...,. - _Robert G. Wilson v_, Sep 03 2004
%p A family of related sequences can be generated using different positive integers for a(1). (a(1)=1 gives sequence A096216.)
%t a[1] = 6; a[n_] := a[n] = Count[ GCD[n, Table[ a[i], {i, n - 1}]], 1]; Table[ a[n], {n, 76}] (* _Robert G. Wilson v_, Sep 03 2004 *)
%Y Cf. A096216.
%K nonn
%O 1,1
%A _Leroy Quet_, Aug 30 2004
%E More terms from _Robert G. Wilson v_, Sep 03 2004
|
