Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%I #14 Nov 24 2019 02:34:43
%S 4,4,4,6,8,8,12,12,24,16,32,24,24,24,40,48,32,64,44,48,72,54,84,60,60,
%T 64,48,72,72,64,84,132,88,96,80,120,128,80,128,160,96,120,128,96,120,
%U 160,180,120,144,120,232,128,160,252,192,216,144,272,180,184,192,160
%N a(n) = A000010(A001043(n)).
%F a(n) = phi(prime(n) + prime(n+1)).
%p A000010 := proc(n) numtheory[phi](n); end proc: A001043 := proc(n) ithprime(n)+ithprime(n+1) ; end proc: A171743 := proc(n) A000010(A001043(n)) ; end proc: for n from 1 to 100 do printf("%d,", A171743(n)) ; od: # _R. J. Mathar_, Jan 21 2010
%t EulerPhi[Total[#]]&/@Partition[Prime[Range[70]],2,1] (* _Harvey P. Dale_, Mar 05 2013 *)
%o (PARI) p=2;forprime(q=3,1e3,print1((p-1)*(q-1)", ");p=q) \\ _Charles R Greathouse IV_, Feb 21 2013
%Y Cf. A000010, A001043.
%K easy,nonn
%O 1,1
%A _Giovanni Teofilatto_, Dec 17 2009
%E Corrected (a(36)=204 removed) by _R. J. Mathar_, Jan 21 2010