The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A105075 a(1) = 1; a(n) = Sum_{k=1..n-1} phi(a(k)*a(n-k)), where phi(m) is the totient function. 0

%I

%S 1,1,2,3,6,10,16,38,80,160,328,752,1712,4000,8736,16940,34816,83904,

%T 178304,433408,1031552,2601600,5193984,11318272,26631680,62674688,

%U 160582656,336680960,715578368,1829193728,4724027392,11004676992

%N a(1) = 1; a(n) = Sum_{k=1..n-1} phi(a(k)*a(n-k)), where phi(m) is the totient function.

%p with(numtheory): a:=array(1..100): a[1]:=1: for n from 1 to 49 do a[n+1]:=sum(phi(a[k]*a[n+1-k]), k=1..n) od: for i from 1 to 50 do printf(`%d,`, a[i]) od: # _James A. Sellers_, Apr 09 2005

%t a[1] = 1; a[n_] := Sum[ EulerPhi[ a[k] a[n - k]], {k, n - 1}]; Table[ a[n], {n, 32}] (* _Robert G. Wilson v_, Apr 09 2005 *)

%Y Cf. A000010.

%K nonn

%O 1,3

%A _Leroy Quet_, Apr 06 2005

%E More terms from _James A. Sellers_ and _Robert G. Wilson v_, Apr 09 2005

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified April 10 06:54 EDT 2021. Contains 342843 sequences. (Running on oeis4.)